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1.0 GENERAL INFORMATION 


1.1 PROGRAM ABSTRACT 


THE RC25 DISK EXERCISER IS DESIGNED TO VERIFY THE INTEGRITY OF THE 
DRIVE(S) UNDER TEST, AND TO DETECT FAULTS AT THE FUNCTIONAL LEVEL ONLY. 
UNDER THE MULTI-DRIVE SUBTEST, THE PROGRAM SHOULD GIVE A CLEAR 
INDICATION AS TO HOW AN RC25 DRIVE WILL FUNCTION EITHER ALONE OR WITH 
OTHER RC2S5 DRIVES UNDER STRESSFUL OPERATING SYSTEM CONDITIONS. THESE 
CONDITIONS ARE CREATED BY ISSUING A HEAVY LOAD OF MSCP I/0 COMMANDS TO 
ALL ONLINE UNITS. THE USER CAN CONTROL MANY OF THE I/0 COMMAND 
PARAMETERS THROUGH THE HARDWARE AND SOFTWARE QUESTIONS, INCLUDING 
FUNCTION (WRITE-ONLY, READ-ONLY, WRITES AND READS, WRITE-COMPARES, 
READ-COMPARES), DISK BLOCK SELECTION (RANDOM VS. SEQUENTIAL), TRACK 
NUMBER LIMITS, AND THE SELECTION OF DATA PATTERNS. IN ADDITION, THE 
USER CAN CHOOSE INSTEAD TO RUN THE DM EXERCISER SUBTEST. THIS SUBTEST 
CONSISTS OF THE ROM-RESIDENT FRONT PANEL EXERCISER RUNNING IN THE DM 
(DIAGNOSTIC MACHINE) UNDER HOST CONTROL. SEE SECTION 6.0 FOR MORE 
INFORMATION ON EACH EXERCISER SUBTEST. 


THIS EXERCISER CAN TEST UP TO 4 CONTROLLERS (4 DIFFERENT IP ADDRESSES), 
EACH CONTROLLER HAVING UP TO 2 DRIVES, AND EACH DRIVE WITH 2 PLATTERS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC RUNTIME 
SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE THE INTERFACE 
TC THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. THIS PROGRAM CAN BE 
USED WITH XXDP+, ACT, APT, SLIDE AND PAPER TAPE. FOR A COMPLETE 
DESCRIPTION OF THE RUNTIME SERVICES, REFER TO THE XXDP+ USER'S MANUAL. 
THERE IS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES IN SECTION 2 OF 
THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 
THE FOLLOWING HARDWARE IS REQUIRED TO RUN THE RC25 DISK EXERCISER: 


* POP-11 CPU 

* 28K WORDS OF MEMORY (MEMORY ABOVE 28K, IF AVAILABLE, WILL BE USED FOR 
DATA TRANSFERS) 

* FROM 1 TO 4 RC25 CONTROLLERS WITH UP TO 2 DRIVES PER CONTROLLER AND 
EXACTLY 2 PLATTERS PER DRIVE (I.E., A REMOVABLE CARTRIDGE MUST 
ere IN EACH DRIVE, ALTHOUGH IT NEED NOT PARTICIPATE IN 

H 

* XXDP+ MEDIA DEVICE (I.E., RKOS, RLO2) 

# KW11-L OR KW11-P CLOCK 

* CONSOLE TERMINAL 


1.3 RELATED DOCUMENTS AND STANDARDS 


CHQUS - XXDP+ USER'S MANUAL 

UNIBUS/Q-BUS STORAGE SYSTEMS PORT (UQSSP), V1.5 

MASS STORAGE COMMUNICATION PROTOCOL (MSCP), V1.2 
DIAGNOSTIC AND UTILITIES PROTOCOL (DUP), VO.5 

FRONT PANEL EXERCISER DIAGNOSTIC SPECIFICATION, REV 1.2 
RC25 AZTEC ENGINEERING SPECIFICATION, REV 5 
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1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ALL RC25 DRIVE-UNITS TO BE EXERCISED BY THIS PROGRAM MUST HAVE BEEN 
SUCCESSFULLY VERIFIED BY THE RC25 AZTEC FRONT-END / HOST DIAGNOSTIC. 
THE FRONT-END / HOST DIAGNOSTIC REQUIRES THAT THE BUS, HOST PROCESSOR, 
MEMORY, SYSTEM CLOCK AND CONSOLE TERMINAL ARE ALL FUNCTIONING PROPERLY. 


1.5 ASSUMPTIONS 

wegtenge m5 es IS PRESENT IN ALL RC25 DRIVE-UNITS TO BE 

<ALL RC2S CONTROLLERS WILL INTERRUPT THE HOST AT OR LEVEL 5 OR LESS. 
2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER’S MANUAL (CHQUS). 


2.1 COMMANDS 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY BRIEF 
DESCRIPTION OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (BY tC) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING CALL UNITS ARE 
CONSIDERED TO BE ACTIVE AT START TIME) 

DROP DEACTIVATE A UNIT 

PRINT PRINT STATISTICAL INFORMATION (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. SO YOU MAY, 
FOR EXAMPLE, TYPE “STA” INSTEAD OF “START”. 


FOR THE RC25 DISK EXERCISER, THE START, RESTART, AND CONTINUE COMMANDS 
oe SIMILAR FUNCTIONS. THE DIFFERENCES ARE SUMMARIZED IN THE TABLE 
BELOW: 


START RESTART CONTINUE 


ALLOW CHANGES TO HARDWARE 
CONFIGURATION Xx 


CLEAR ELAPSED TIME OF EXERCISER 
TO 00:00:00 X 


SAVE STATISTICS ACCUMULATED 
— THE LAST INCOMPLETE X 
ss 


& 











RESET THE COMMAND REFERENCE 


NUMBER USED IN MSCP COMMANDS x x 
IF SEQUENTIAL LBN MODE, RESET 
THE STARTING BLOCK NUMBER USED xX Xx 


IN I/0 OPERATIONS 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR 
OPERATION. THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF 
Lin LEGAL SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF 

H. 


IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”. 
SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECIFIED IN THE LIST. 
LIST IS A STRING OF TEST NUMBERS, FOR 
EXAMPLE - /TESTS:1:5:7-10. THIS LIST 
WILL CAUSE TESTS 1,5,7,8,9,10 TO BE 
RUN. ALL OTHER TESTS WILL NOT BE RUN. 

/PASS:DDDDD EXECUTE DODDD PASSES (DDDDD = 1 TO 64000) 

/FLAGS :FLGS SET tee *<-y FLAGS ARE DESCRIBED IN 

7EOP :DDDDD REPORT END-OF-PASS MESSAGE AFTER EVERY DODDD 
PASSES ONLY. (DDDDD = 1 TO 64000) 

UNITS :LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED IN THE 
LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
USE UNITS 0,5,10,11,12. 


EXAMPLE OF SWITCH USAGE: 

START/TESTS: 1-5/PASS:1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE END-OF-PASS 
MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONLY. A SWITCH CAN BE 
RECOGNIZED BY THE FIRST THREE CHARACTERS. YOU MAY, FOR EXAMPLE, TYPE 
“/TES:1-5” INSTEAD OF “/TESTS:1-5”. 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 


COMMAND. 
TESTS PASS FLAGS €0P UNITS 

START X X X X X 
RESTART xX X X X Xx 
CONTINUE X X X 
PROCEED X 
DROP X 
ADD X 
PRINT 
DISPLAY X 
FLAGS 
ZFLAGS 
EXIT 


FOR THE RC25 DISK EXERCISER, THE /TESTS SWITCH IS MEANINGLESS SINCE 
THERE IS ONLY ONE TEST. 
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2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH A LOOPING 
ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN CLEARED UNTIL 
EXPLICITLY SET 'JSING THE FLAGS SWITCH. FLAGS ARE ALSO CLEARED AFTER A 
START COMMAND UNLESS SET USING THE FLAG SWITCH. THE ZFLAGS COMMAND MAY 
ALSO BE USED TO CLEAR ALL FLAGS. WITH THE EXCEPTION OF THE START AND 
ZFLAGS COMMANDS, NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN 
SET OR CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL IS RETURNED TO RUNTIME 
SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

IER* INHIBIT ALL ERROR REPORTS (GENERAL, BASIC, AND 
EXTENDED ) 

IBR* INHIBIT BASIC AND EXTENDED ERROR REPORTS 

IXRe INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL” ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 

EVL EXECUTE EVALUATION (ON DIAGNOSTICS WHICH HAVE 


EVALUATION SUPPORT) 
* ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY SPECIFY 
MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, TO CAUSE THE 
PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS AND TYPE A “BELL” ON 
ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 


oe a RC25 DISK EXERCISER, THE FOLLOWING FLAGS HAVE NO EFFECT: ADR 
A VL. 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT THE USER 
FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) ?”. YOU MUST ANSWER 
“Y" AFTER A START COMMAND UNLESS (A) THE HARDWARE INFORMATION HAS BEEN 
“PRELOADED” USING THE SETUP UTILITY (SEE CHAPTER 6 OF THE XXDP+ USER'S 
MANUAL), OR (B) YOU WISH TO USE THE DEFAULT HARDWARE CONFIGURATION THAT 
IS SUPPLIED WITH THE PROGRAM (SEE BELOW). WHEN YOU ANSWER THIS QUESTION 
WITH A “Y”, THE RUNTIME SERVICES WILL ASK FOR THE NUMBER OF UNITS CIN 
DECIMAL). YOU WILL THEN BE ASKED THE HARDWARE QUESTIONS FOR EACH UNIT. 
UNDER THIS PROGRAM, A UNIT IS DEFINED TO BE ONE DISK PLATTER. 


A WORD ABOUT SEMANTICS: IN ALL MESSAGES OUTPUT BY THE RC25 EXERCISER, 
AS WELL AS IN THE DOCUMENTATION, THE PHRASES “UNIT X” AND “UNIT NUMBER” 
REFER TO THE SEQUENTIALLY-ASSIGNED UNIT NUMBER GIVEN BY THE DIAGNOSTIC 
SUPERVISOR. THE PHRASES "PLATTER X"“ AND “PLATTER ADDRESS” REFER TO THE 
UNIT NUMBER ASSIGNED TO THE DISK THROUGH THE UNIT PLUG ON THE FRONT OF 
THE DRIVE. THESE TWO NUMBERS ARE NOT RELATED. 


ee ee 








DEFAULT ANSWERS APPEAR WITH QUESTIONS FOR WHICH THE USER MAY SIMPLY 
TYPE A CARRIAGE RETURN. 


IP ADDRESS (0) 172150 ? 
ENTER THE ADDRESS OF THE IP REGISTER OF ONE RC25 AS ADDRESSED 
BY THE PROCESSOR WITH MEMORY MANAGEMENT TURNED OFF. THE PROGRAM 
pot Tyg AN EVEN 16-BIT ADDRESS IN THE RANGE OF 160000 TO 
1 4. 

VECTOR (0) 154 ? 
ANSWER WITH THE INTERRUPT VECTOR OF THE SAME RC25 IN THE ABOVE 
QUESTION. AN EVEN VECTOR ADDRESS IN THE RANGE OF 4 TO 774 WILL 
BE ACCEPTED. SINCE RC25 VECTOR ADDRESSES ARE PROGRAMMABLE AND 
NOT HARDWIRED, CARE MUST BE TAKEN NOT TO SPECIFIY A VECTOR 
WHICH IS USED FOR ANOTHER PERIPHERAL DEVICE. 

BR LEVEL (0) 5 ? 
ANSWER WITH THE BUS REQUEST INTERRUPT LEVEL USED BY THE ABOVE 
RC25. LEVELS 4 THORUGH 7 ARE ACCEPTABLE. (NOTE: THE PROGRAM 
EXPECTS THAT ALL RC25‘S WILL BE AT BR LEVEL 5 OR LESS. IF 
THIS IS NOT THE CASE, THEN ONLY ONE RC25 CONTROLLER WITH UP 
TO FOUR UNITS MAY BE EXERCISED AT A TIME). 

PLATTER ADDRESS CUNIT PLUG) (D) 0 ? 
ENTER A NUMBER BETWEEN 0 AND 253 FOR ONE DISK WHICH CORRESPONDS 
TO THE UNIT PLUG ON THE FRONT OF THE DEVICE. EVEN NUMBERS 
DESIGNATE THE REMOVABLE PLATTER CUPPER DISK), ODD NUMBERS REFER 
TO THE FIXED PLATTER CLOWER DISK). 

ALLOW WRITES TO CUSTOMER DATA AREA ON THIS PLATTER (L) ? 
NO DEFAULT. IF THE MULTI-DRIVE SUBTEST IS BEING RUN, A “NO” 
ANSWER HERE WILL FORCE THE EXERCISER TO PERFORM READ-ONLY 
OPERATIONS TO THE CUSTOMER DATA AREA OF THIS UNIT. IF THE DM 
EXERCISER IS BEING RUN, THIS QUESTION HAS NO EFFECT, SINCE THE 
DM EXERCISER WRITES ON THE DIAGNOSTIC TRACKS ONLY. IN ANY CASE, 
IF YOU ANSWER “YES”, THE FOLLOWING QUESTION WILL APPEAR. 

*#*# WARNING - CUSTOMER DATA AREA MAY BE OVERWRITTEN! ... CONFIRM (L) ? 
NO DEFAULT. A “YES” ANSWER IS EXPECTED, BUT A “NO” ANSWER WILL 
PREVENT THE CUSTOMER DATA AREA FROM BEING OVERWRITTEN. 


EXAMPLE OF HARDWARE DIALOG: 
CHANGE HW (L) ? Y<CR> 
# UNITS (D) ? 2<CR> 


UNIT 0 

IP ADDRESS (0) 172150 ? <CR> 

VECTOR (0) 154 ? <CR> 

BR LEVEL (0) 5 ? <CR> 

PLATTER ADDRESS ... (D) 0 ? 252<CR> 

ALLOW WRITES ... (L) ? Y<CR> 

** WARNING - ... CONFIRM (L) ? N<CR> ! USER REVERSES ANSWER 


UNIT 1 

IP ADDRESS (0) 172150 ? <CR> 

VECTOR (0) 154 ? <CR> 

BR LEVEL (0) 5 ? <CR> 

PLATTER ADDRESS ... (D) 252 ? 253<CR> 
ALLOW WRITES ... (L) ? Y<CR> 

a& WARNING - ... CONFIRM (L) ? Y<CR> 
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AS MENTIONED ABOVE, THERE IS A DEFAULT HARDWARE CONFIGURATION THAT IS 
SUPPLIED WITH THE PROGRAM. IT CONSISTS OF TWO UNITS AS FOLLOWS: 


UNIT 0 

IP ADDRESS: 172150 
VECTOR: 154 

BR LEVEL: 5 


PLATTER ADDRESS: 0 
ALLOW WRITES? N 


UNIT 1 

IP ADDRESS: 172150 
VECTOR: 154 

BR LEVEL: 5 
PLATTER ADDRESS: 1 
ALLOW WRITES? N 


THIS CONFIGURATION TAKES EFFECT IF THE USER DOES NOT USE THE SETUP 
UTILITY AND HAS BYPASSED THE HARDWARE QUESTIONS WHEN THE PROGRAM IS 


FIRST STARTED. 
2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART OR 


CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 


PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 


OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?”. 


WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING “Y”". THE SOFTWARE 


QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED BELOW: 
ERROR LIMIT (O FOR NO LIMIT) (D0) 32 ? 





ENTER THE NUMBER OF HARD ERRORS ALLOWED PER UNIT PER PASS 
BEFORE THE UNIT IS DROPPED FROM TESTING. A NUMBER IN THE 
RANGE OF 0 TO 65535 WILL BE ACCEPTED. 


TRANSFER LIMIT IN MEGABYTES (0 FOR NO LIMIT) (D) 2 ? 


ENTER THE NUMBER OF MEGABYTES TO BE TRANSFERRED TO / FROM EACH 
UNIT BEFORE AN END-OF-PASS IS DECLARED. A NUMBER IN THE RANGE 
OF O TO 65535 WILL BE ACCEPTED. AS A REFERENCE, ON A SYSTEM 
CONFIGURED WITH ONE DRIVE (TWO UNITS) AND 128K OF MEMORY, THE 
MULTI-DRIVE SUBTEST WILL REACH A 10 MEGABYTE TRANSFER LIMIT IN 
APPROXIMATELY 8 MINUTES. FOR THE SAME SYSTEM, THE DM EXERCISER 
ont = 3 WILL REACH A 2 MEGABYTE LIMIT IN APPROXIMATELY 20 


SUPPRESS PRINTING ERROR LOG MESSAGES (L) Y ? 


ERROR LOG MESSAGES USUALLY DESCRIBE MINOR ERRORS ENCOUNTERED 
DURING 1/0 OPERATIONS, SUCH AS ECC SYMBOL ERRORS. ANSWER “N” 
TO SEE ALL ERROR LOG MESSAGES. 


RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST (L) N ? 


THIS QUESTION DETERMINES WHICH OF THE TWO EXERCISER SUBTESTS 
WILL BE RUN. THE MULTI-DRIVE SUBTEST IS HOST-DRIVEN WHILE THE 
DM EXERCISER IS THE FRONT PANEL TEST EXECUTING IN THE 
DIAGNOSTIC MACHINE AT THE DEVICE. SEE SECTION 6.0 FOR MORE 
INFORMATION. THE REMAINING QUESTIONS WILL ONLY BE ASKED IF THE 
MULTI-DRIVE SUBTEST IS BEING RUN. 


RANDOM SEEK MODE (L) Y ? 


ANSWERING “Y” WILL CAUSE EACH I/0 OPERATION TO SELECT A RANDOM 
STARTING DISK BLOCK NUMBER. ANSWER “N” TO HAVE STARTING BLOCK 
NUMBERS SELECTED SEQUENTIALLY ON EACH PLATTER. 
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STARTING TRACK (0D) 0 ? 
ENTER THE STARTING TRACK NUMBER OF THE DISK AREA YOU WISH TO 
TEST. A NUMBER IN THE RANGE 0 TO 1641 WILL BE ACCEPTED. 
ENDING TRACK (D) 1641 ? 
cect. THE ENDING TRACK NUMBER OF THE DISK AREA YOU WISH TO 


T » 
READ-COMPARES PERFORMED AT THE CONTROLLER (L) Y ? 
A “YES” ANSWER WILL CAUSE ALL READ OPERATIONS TO BE CHANGED TO 
READ-COMPARE. THIS ESSENTIALLY FORCES THE CONTROLLER TO PERFORM 
TWO READ OPERATIONS ON THE SAME DISK SECTORS AND TO COMPARE THE 
ats AFTER ANSWERING THIS QUESTION, THE FOLLOWING MESSAGE 
S: 


THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS. 


WRITE ONLY (L) N ? 

ANSWER “Y” FOR WRITES ONLY; OTHERWISE THE PROGRAM WILL CHOOSE 
WRITES AND READS ON A RANDOM BASIS. 

WRITE-COMPARES PERFORMED AT THE CONTROLLER (L) Y ? 

ANSWERING “YES” CAUSES ALL WRITE I/0 REQUESTS TO BE CHANGED TO 
WRITE-COMPARE. IN THIS SITUATION, AFTER EACH WRITE, THE 
CONTROLLER WILL READ BACK THE DATA FROM THE MEDIA AND COMPARE 
IT TO THE ORIGINAL DATA RE-OBTAINED FROM THE HOST. 

CHECK ALL WRITES AT HOST BY READING (L) N ? 

THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED “NO”. A “YES” ANSWER HERE CAUSES EACH HOST WRITE 
REQUEST TO BE FOLLOWED BY A READ REQUEST. WHEN BOTH OPERATIONS 
HAVE COMPLETED, THE HOST WILL COMPARE THE DATA STORED IN THE 
TWO I/0 BUFFERS. THERE ARE SOME UNDESIRABLE IMPLICATIONS IN 
CHOOSING THIS OPTION, INCLUDING THE CONSUMPTION OF EXTRA CPU 
TIME, AND THE OVERRIDING OF THE CONTROLLER'S NORMAL 
OPTIMIZATION POLICIES (DUE TO THE “EXPRESS REQUEST” COMMAND 
MODIFIER WHICH MUST BE SET FOR EACH WRITE-READ PAIR). 

USER-DEFINED DATA PATTERN (L) N ? 

AN ANSWER OF “YES” ALLOWS YOU TO DEFINE YOUR OWN DATA PATTERN 
CUP TO 16 WORDS) TO BE USED IN ALL WRITE OPERATIONS. A “NO” 
ANSWER ALLOWS THE USE OF OTHER PRE-DEFINED DATA PATTERNS WHICH 
MAY BE SELECTED IN THE NEXT QUESTION. 

SELECT PRE-DEFINED DATA PATTERN (O FOR SEQUENTIAL SELECTION) (D) 0 ? 
THIS QUESTION WILL ONLY BE ASKED IF THE PREVIOUS QUESTION WAS 
ANSWERED “NO”. THE 21 PRE-DEFINED DATA PATTERNS ARE SHOWN IN 
APPENDIX A. AN ANSWER OF “0” CAUSES EACH OF THE 21 PATTERNS TO 
BE SELECTED SEQUENTIALLY ON EACH UNIT. NOTE THAT PATTERN 1 
CONSISTS ENTIRELY OF RANDOM NUMBERS. THIS COMPLETES THE SOFT- 
WARE QUESTIONING; THE FOLLOWING QUESTIONS ARE ASKED ONLY IF YoU 
CHOSE TO DEFINE YOUR OWN DATA PATTERN. 

NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM) (D) 16 ? 

PATTERN VALUE (0) ? 

THIS QUESTION REPEATED AS APPROPRIATE. 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES IN A 
TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST WAY TO BUILD 
THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH UNIT TO BE TESTED. IF 
YOU HAVE A MULTIPLEXED DEVICE SUCH AS A MASS STORAGE CONTROLLER WITH 
SEVERAL DRIVES OR A COMMUNICATION DEVICE WITH SEVERAL LINES, THIS 
BECOMES TEDIOUS SINCE MOST OF THE ANSWERS ARE REPETITIOUS. 
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TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING A 
FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF A CONTROL 
MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. THESE UNITS ARE 
DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. THERE IS ONE HARDWARE 
PARAMETER THAT CAN VARY AMONG UNITS CALLED THE Q-FACTOR. THIS Q-FACTOR 
MAY BE 0 OR 1. BELOW IS A SIMPLE WAY TO BUILD A TABLE FOR ONE XYi1 


WITH EIGHT UNITS. 
@ UNITS (0D) ? 8<CR> 
UNIT 1 


CSR ADDRESS (0) ? 160000<CR> 
SU8-DEVICE # (0) ? O<CR> 


Q-FACTOR (0) 0 ? 1<CR> 


UNIT 2 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 1<CR> 


Q-FACTOR (0) 1? O<CR> 


UNIT 3 
CSR ADDRESS (0) ? 160000<CR> 


SUB-DEVICE # (0) 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 


? 2<CR> 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 


Q-FACTOR (0) 0 ? <CR> 
UNIT 5 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 4<CR> 


Q-FACTOR (0) 0 ? <CR> 
UNIT 6 


CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5S<CR> 


Q-FACTOR (0) 0 7 <CR> 


T7 


UNI 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 


Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 


CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) ? 7<CR> 


Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 


NON-DEFAULT RESPONSE IS GIVEN. 
UNITS! 


BE CAREFUL WHEN SPECIFYING MULTIPLE 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS DO NOT 
VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS NOT VERY 


EFFICIENT. 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
LET’S BUILD THE SAME TABLE USING THE MULTIPLE SPECIFICATION FEATURE. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL BUILD 
AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY ONE PASS 
THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES ARE BUILT SINCE 
TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE SERVICES ASSUME THAT 
THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT WAS SPECIFIED ONLY ONCE. 

IN THE SECOND PASS, FOUR ENTRIES WERE BUILT. THIS IS BECAUSE FOUR 
SUB-DEVICES WERE SPECIFIED. THE “-” CONSTRUCT TELLS THE RUNTIME 
SERVICES TO INCREMENT THE DATA FROM THE FIRST NUMBER TO THE SECOND. IN 
THIS CASE, SUB-DEVICES 2, 3, 4 AND 5 WERE SPECIFIED. CIF THE SUB-DEVICE 
WERE SPECIFIED BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE 
ADDRESSES MUST BE ON AN EVEN BOUNDARY). THE CSR ADDRESSES AND Q-FACTORS 
FOR THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND O RESPECTIVELY SINCE 
a lm Res SPECIFIED ONCE. THE LAST TWO UNITS ARE SPECIFIED IN THE 
H . 


te PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS SHOWN 


# UNITS (D) ? 8<CR> 

UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0-7<CR> 
Q-FACTOR (0) 0 ? 0.1.0. 00ebsk*tR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING A NULL 
FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


2.7 QUICK START-UP PROCEDURE (XXDP+) 
TO START-UP THIS PROGRAM: 
1. BOOT XXDP+ 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE IS A 
CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC FILE 
FOR THIS PROGRAM 





SEQ 0011 


— 





TYPE “START” 

ANSWER THE “CHANGE HW” QUESTION WITH “Y” 
. ANSWER ALL THE HARDWARE QUESTIONS 
ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE DEFAULTS FOR 
yyy hse PARAMETERS. THESE DEFAULTS ARE DESCRIBED IN SECTIONS 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY A 
DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES ARE 
ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). THE GENERAL 
ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
NUMBER = ERROR NUMBER 
UNIT NUMBER = 0 - (N-1) (N IS THE NUMBER OF UNITS CONFIGURED) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 
PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 

INFORMATION ABOUT THE ERROR. THESE ARE ALWAYS PRINTED UNLESS THE “IER” 
OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES ARE PRINTED AFTER 
THE ASSOCIATED GENERAL MESSAGE. FOR THE RC25 DISK EXERCISER, ALL BASIC 
Se CONTAIN THE ELAPSED TIME (THE TIME SINCE THE LAST START 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION SUCH AS 
REGISTER CONTENTS OR GOOD/BAD DATA. THESE ARE ALWAYS PRINTED UNLESS 
THE “IER“, “IBR” OR “IXR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR MESSAGE AND ANY 
ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


THIS LIST OF RC2S5 EXERCISER ERROR MESSAGES IS ARRANGED BY ERROR NUMBER. 
THE LETTERS G, B, AND X REFER TO THE GENERAL, BASIC, AND EXTENDED TEXT 
OF THE ERROR MESSAGE, RESPECTIVELY. ALL NUMERIC VALUES ARE IN OCTAL 
oo. FOR THE ELAPSED TIME OR WHEN THE NUMBER IS FOLLOWED BY A DECIMAL 
OINT. 


3.2.1 SYSTEM-FATAL ERROR MESSAGES 


THESE CONDITIONS WILL CAUSE THE DIAGNOSTIC TO BE ABORTED. THEY WILL 
APPEAR AFTER THE SOFTWARE DIALOG. 


vu oO WS 





SEQ 0012 


SEQ 0013 
1 G TOO MANY UNITS 
B XX:XX:XX MORE THAN 16. UNITS SPECIFIED 


2 G NEITHER P NOR L CLOCK WAS FOUND ON THE SYSTEM 


3.2.2 CONFIGURATION ERROR MESSAGES 

CONFIGURATION ERRORS INDICATE ILLEGAL HARDWARE CONFIGURATIONS. THESE 
SITUATIONS ARE DETECTED BEFORE ANY ACTUAL TESTING TAKES PLACE. AS SUCH, 
THEY ARE SPECIAL IN THAT THERE IS NO ERROR NUMBER ASSOCIATED WITH THEM, 
AND THEY ARE NOT INCLUDED IN THE SUMMARY REPORT NOR THE END-OF -PASS 
MESSAGE. ANY UNITS INVOLVED ARE IMMEDIATELY DROPPED. 


IF YOU TRY TO CONFIGURE MORE THAN 4 UNITS AT THE SAME IP ADDRESS, THE 
FOLLOWING MESSAGE WILL APPEAR: 


ALREADY 4 UNITS AT IP XXXXXxX(0) 


THE REMAINING UNITS COVER 4) WILL BE DROPPED. IF YOU TRY TO CONFIGURE 
MORE THAN 4 CONTROLLERS, THE FOLLOWING MESSAGE WILL APPEAR: 


MORE THAN 4 DIFFERENT IP ADDRESSES 
ALL_UNITS ASSOCIATED WITH THE STH CAND HIGHER) CONTROLLERS WILL BE 
DROPPED. FINALLY, IF YOU SPECIFY IDENTICAL PLATTER ADDRESSES UNDER 
ONE CONTROLLER CIP ADDRESS), THE FOLLOWING MESSAGE WILL APPEAR: 
DUPLICATE PLATTER ADDRESS XXX. AT IP XXXXXX(0) 


Se (BEYOND THE FIRST) WITH IDENTICAL PLATTER ADDRESSES WILL BE 





3.2.3 DEVICE-FATAL ERROR MESSAGES 


IF THE ERROR PERTAINS TO A CONTROLLER, THEN ALL THE UNITS ATTACHED TO 
THE CONTROLLER WILL BE DROPPED. OTHERWISE, THE ERROR PERTAINS TO A 
SINGLE UNIT, AND ONLY THAT UNIT IS DROPPED. 


10 G REGISTER EXISTENCE TEST FAILED 
B XX:XX:XX NO RESPONSE AT ADDRESS XXXXXxX(0) 


il ABOUT TO VERIFY VECTOR XXX(0) FOR DEVICE XXXXXx(0) ... 
(FOLLOWED BY EITHER NOTHING OR) 
G VECTOR TEST FAILED 


12 G 6R LEVEL TEST FAILED 
B XX:XX:XX INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXxx(0) 


ERROR 13 REFERS TO THE FOUR STEP HARD INITIALIZE SEQUENCE DESCRIBED IN 
THE UNIBUS / Q-BUS STORAGE SYSTEMS PORT (UQSSP) SPEC. THE SA REGISTER 
CODE IS PROVIDED TO ASSIST IN DIAGNOSIS. 


13. G INIT SEQUENCE FAILED 
B XX:XX:XX STEP X READ ERROR ON DEVICE XXxxxxx(0) 
x SA: XXXXXX(0) 














ERROR 14 MEANS THAT THE ERROR BIT (BIT 15) OF A DEVICE'S SA REGISTER 
WAS FOUND SET TO 1. THE LOW-ORDER 11 BITS DESCRIBE THE ERROR. 


14 G FATAL PORT / CONTROLLER ERROR 
B XX:XX:XX ERROR CODE RECEIVED IN SA REGISTER OF DEVICE 
XXXXXXCO) 
Xx SA: XXXXXxX(0) 


ERROR 15 IS REPORTED WHEN THE RC25 FAILS TO RESPOND TO ONE OF THE 
LISTED MSCP COMMANDS. 


15 G MESSAGE RESPONSE TIMEOUT 
B XX:XX:XX FAILED TO RECEIVE END MESSAGE FROM DEVICE 
XXXXXXCO) 
xX COMMAND: SET CTLR CHAR (OR) 
ONLINE (OR) 
EXECUTE SUPPLIED PROGRAM (OR) 
SEND DATA 


ERROR 16 REFERS TO THE NSCP “ONLINE” MESSAGE SENT TO EACH UNIT DURING 
THE INITIALIZATION SUBTEST. THE STATUS CODE AND SUB-CODE ARE TAKEN 
FROM THE MSCP END MESSAGE (AS THEY ARE IN ALL ERROR MESSAGES). 


16 G ONLINE FAILED 
B XX:XX:XX ERROR IN RESPONSE TO ONLINE COMMAND FOR 
PLATTER XXX, 
x STATUS CODE: xx(0) 
X SUB-CODE: XXxx(0) 


ERROR 17 IMPLIES THAT (A) YOU HAVE ALLOWED WRITES TO THE CUSTOMER DATA 
AREA THROUGH THE HARDWARE QUESTION, AND (8) THE WRITE-PROTECT 
PUSHBUTTON FOR THE UNIT IS ENGAGED. 


17 G WRITE-PROTECT CONFLICT 
B XX:XX:XX PLATTER XXX. IS SW WRITE-ENABLED BUT HW 
WRITE-PROTECTED 


ERROR 18 REFERS TO THE MSCP “ACCESS” COMMANDS WHICH ARE ISSUED TO EACH 
UNIT AS PART OF THE INITIALIZATION SUBTEST. IF EXTENDED ERROR MESSAGES 
ARE ENABLED AND THE STATUS CODE AND SUB-CODE DO NOT APPEAR, THEN THE 
ACCESS COMMAND HAS TIMED OUT (I.€., NO RESPONSE RECEIVED WITHIN THE 
REQUIRED INTERVAL). 


18 G ACCESS FAILED 
B XX:XX:XX ACCESS FAILED ON PLATTER XXX. 
X STATUS CODE: Xx(0) 
Xx SUB-CODE: XXXx(0) 


ERROR 19 OCCURS WHEN AN MSCP I/0 COMMAND RESULTS IN AN END MESSAGE WITH 
THE “UNIT OFFLINE” STATUS CODE. 


19 G FATAL I/0 ERROR 

B XX:XX:XX PLATTER XXX. WENT OFFLINE 

X CMD REF NUM: XXXXXX(0) 

x SUB-CODE: XXXx(0) 

X COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE COR) 
WRITE-COMPARE (OR) 
XXx(0) 








SEQ 0015 
a BAD BLOCK REPORTED: XXXXX. ! EITHER THIS : 
Xx LON: XXXXX, ! OR THIS 
X BYTE COUNT IN COMMAND: XXXXX. 
X ACTUAL @ BYTES TRANSFERRED: XXXXX, 
x I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(O) 
20 G CONTROLLER TIMEOUT 
B XX:XX:XX DEVICE XXXXXX(O) NOT PROCESSING COMMAND 


PACKETS 
ERROR 21 ARISES IF YOU ARE RUNNING 1HE DM EXERCISER SUBTEST, AND ONE OF 
THE INITIAL DUP COMMANDS WAS REJECTED WITH A STATUS CODE OTHER THAN 
“SUCCESS”. NOTE THAT THE STATUS CODE IS NOT FROM MSCP. 


21 G DUP COMMAND FAILED 


B XX:XX:XX MESSAGE ae BY DUP SERVER ON DEVICE 
XXXXXX 

X COMMAND: EXECUTE SUPPLIED PROGRAM (OR) 

Xx SEND DATA 

X DUP STATUS CODE: xX. 


ERROR 22 IS ALSO RELATED TO THE DOM EXERCISER SUBTEST. IT INDICATES THAT 
THE FRONT PANEL TEST (EXECUTING UNDER HOST CONTROL IN THE DM) HAS 
FAILED TO PROVIDE THE HOST WITH A SET OF OPERATING STATISTICS WITHIN A 
PRE-DETERMINED TIME INTERVAL. THE FPT IS ASSUMED TO BE DEAD. 


22 G OM EXERCISER TIMEOUT 
B XX:XX:XX NO RESPONSE FROM FRONT PANEL TEST EXECUTING IN 
DEVICE XXXxXxx(0) 


3.2.4 HARD ERROR MESSAGES 


MOST HARD ERRORS ARE REPORTED TO THE HOST THROUGH THE END MESSAGES 
ASSOCIATED WITH MSCP READ AND WRITE COMMANDS. ERROR NUMBERS 31 - 41 
ARE BASED ON MSCP STATUS CODES 1 - 11. 


30 G I/0 REQUEST FAILED 
B XX:XX:XX PLATTER XXX. - STATUS CODE: xXx(0) 
X CMD REF NUM: XXXXXX(0) 
xX SUB-CODE: XXxXx(0) 
X COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE COR) 
WRITE-COMPARE (OR) 
XXx(0) 
BAD BLOCK REPORTED: XXXXxX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXxX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - INVALID COMMAND 
CMD REF NUM: XXXXXX(0) 
SUB-CODE: XXXx(0) 
COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE COR) 
WRITE-COMPARE (OR) 
XXX(0) 


31 


xxx OCD MK 


oe 








ee ee ean oP 


SEQ 0016 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL @ BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - COMMAND ABORTED 
CMD REF NUM: XXXXXX(0) 
SUB-CODE: XXxxx(0) 
COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE COR) 
WRITE-COMPARE (OR) 
XXX(0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXxX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - UNIT-AVATLABLE 
CMD REF NUM: XXXXxX(0) 
SUB-CODE: XXXx(0) 
COMMAND: READ (COR) 
READ-COMPARE (OR) 
WRITE COR) 
oat at tae COR) 


XXXxCO 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXxX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


I/O REQUEST FAILED 
XX:XX:XX PLATTER XXX. - MEDIA FORMAT ERROR 
CMD REF NUM: XXXXXX(0O) 
SUB-CODE: XXxXx(0) 
COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE (OR) 
WRITE-COMPARE (OR) 
XXX(0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXxX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - WRITE-PROTECTED 
CMD REF NUM: XXXXXX(0) 
SUB-CODE: XXXx(0) 
COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE (OR) 
WRITE-COMPARE (OR) 
XXX(0) 


32 
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35 
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36 


<x xO MRK KK 


ett Sa os aes a alec a 
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40 
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BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX, ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 

ACTUAL @ BYTES TRANSFERRED: XXXXX. 

I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - DEVICE COMPARE ERROR 


CMD REF NUM: XXXXXX(0) 
SUB-CODE: Xxxx(0) 
COMMAND: READ (OR) 

carte tans COR) 


WRITE (OR) 

WRITE-COMPARE (OR) 

XXX(0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 


BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXxX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - DATA ERROR 


CMD REF NUM: XXXXXX(0) 

SUB-CODE: XXXxX(0) 

COMMAND: READ (OR) 
READ-COMPARE (OR) 


WRITE COR) 

WRITE-COMPARE (OR) 

XXX(0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 


BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - HOST BUFFER ACCESS ERROR 


CMD REF NUM: XXXXXX(0) 

SUB-CODE: XXXX(0) 

COMMAND: READ (OR) 
READ-COMPARE (OR) 


WRITE (OR) 

WRITE-COMPARE (OR) 

XXX(0) 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 


BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/O BUFFER DESCRIPTOR: XXXXXX(O) XXXXXx(0) 


I/O REQUEST FAILED 
XX:XX:XX PLATTER XXX. - CONTROLLER ERROR 


CMD REF NUM: XXXXXX(0) 

SUB-CODE: XXXx(0) 

COMMAND: READ (OR) 
READ-COMPARE (OR) 
WRITE (OR) 
WRITE-COMPARE (OR) 
XXX(0) 


SEQ 0017 





SEQ 0018 


BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX, ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 

ACTUAL @ BYTES TRANSFERRED: XXXXX. 

I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


I/0 REQUEST FAILED 
XX:XX:XX PLATTER XXX. - DRIVE ERROR 
CMD REF NUM: XXXXXX(0) 
SUB-CODE: XXXx(0) 
COMMAND: READ (OR 
READ-COMPARE (OR) 
WRITE COR) 
—_— = COR) 


XXXxC0 
BAD BLOCK REPORTED: XXXXX. ! EITHER THIS 
LBN: XXXXX. ! OR THIS 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 
I/0 BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


ERROR 42 IS DETECTED AT THE HOST. IT CAN ARISE IF THE USER HAS CHOSEN 
THE OPTION TO CHECK ALL WRITES AT THE HOST BY FOLLOWING EACH WITH A 
READ TO THE SAME DISK ADDRESS. 


42 G I/0 REQUEST FAILED 
B XX:XX:XX PLATTER XXX. - HOST-DETECTED WRITE-COMPARE 


ERROR 
LBN: XXXXX. 
BYTE COUNT IN COMMAND: XXXXX. 
ACTUAL # BYTES TRANSFERRED: XXXXX. 


ERROR 43 DESCRIBES A SINGLE I/0 COMMAND FOR WHICH NO MSCP END MESSAGE 
WAS EVER RECEIVED. 


43 G I/0 REQUEST FAILED 
4 XX:XX:XX PLATTER XXX. - COMMAND TIMEOUT 
CMD REF NUM: XXXXXX(0) 


41 


<< x KO <xx<xx<xOO Mu MK 


<< 


x COMMAND: READ (OR) 
READ-COMPARE (COR) 
WRITE (COR) 
WRITE-COMPARE (OR) 
XXX(0) 
X LBN: XXXXX. 
X BYTE COUNT IN COMMAND: XXXXX. 
X I/O BUFFER DESCRIPTOR: XXXXXX(O) XXXXXX(0) 


3.2.5 ERROR LOG MESSAGES 


ERROR LOG MESSAGES CDATAGRAMS) DESCRIBE MINOR ERRORS ENCOUNTERED BY THE 
CONTROLLER. THEIR OCCAISIONAL OCCURRENCE IS NORMAL. RELEVANT FIELDS OF 
A DATAGRAM ARE PRINTED (A) IF THE USER IS RUNNING THE PROGRAM IN 
ATTENDED MODE, AND (8) IF NOT SUPPRESSED BY THE USER DURING THE SW 
DIALOG. ONE OF THESE FIELDS, THE COMMAND REFERENCE NUMBER, CAN LINK THE 
DATAGRAM WITH A HARD ERROR. 


Ta ec tls Dn a REE 





ERROR LOG MESSAGES ARE NOT INCLUDED IN THE CUMULATIVE ERROR COUNT WHICH 
APPEARS WITH THE END-OF-PASS MESSAGE. HOWEVER, IF THE MULTI-DRIVE 
SUBTEST IS BEING RUN, THEN DATAGRAMS WHICH APPLY TO A PARTICULAR UNIT 
CAS OPPOSED TO THE CONTROLLER) ARE TALLIED FOR THE STATISTICAL REPORT 

yon OF WHETHER THEIR PRINTING HAS BEEN SUPPRESSED. THE FORMAT IS 
S LOWS: 


ERROR LOG MESSAGE RECEIVED: 
CMD REF NUM: XXXXXX(0O) 
PLATTER: XXX. ! FOR SMALL DISK ERRORS ONLY 
FORMAT: CONTROLLER ERROR (OR) 
HOST MEMORY ACCESS ERROR (OR) 
SMALL DISK ERROR (OR) 
XXXC0) 
EVENT CODE: SUCCESS (OR) 
INVALID COMMAND (OR) 
COMMAND ABORTED (OR) 
UNIT-OFFLINE (COR) 
UNIT-AVAILABLE (COR) 
MEDIA FORMAT ERROR (OR) 
WRITE-PROTECTED (OR) 
DEVICE COMPARE ERROR (OR) 
DATA ERROR (OR) 
HOST BUFFER ACCESS ERROR (OR) 
CONTROLLER ERROR (OR) 
DRIVE ERROR (OR) 
XXXC0) 
SUB-CODE: XXXXx(0) 
HOST MEM ADDR: XXXXXX(O) XXXXXX(O) ! HOST MEM ACC ERR ONLY 


4.0 PERFORMANCE AND PROGRESS REPORTS 


AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE TOTAL 
NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. THIS ERROR 
COUNT DOES NOT INCLUDE ERROR LOG MESSAGES (SECTION 3.2.5), 
CONFIGURATION ERRORS (SECTION 3.2.2), NOR ERRORS DETECTED BY THE FRONT 
PANEL TEST UNDER THE DM EXERCISER. THE “EOP” SWITCH CAN BE USED TO 
CONTROL HOW OFTEN THE END-OF-PASS MESSAGE IS PRINTED. SECTION 2.2 
DESCRIBES SWITCHES. 


PRIOR TO THE END-OF-PASS MESSAGE, THE STATISTICAL SUMMARY REPORT IS 
AUTOMATICALLY PRINTED BY THE EXERCISER. ITS FORMAT DEPENDS ON WHICH 
SUBTEST CMULTI-DRIVE OR DM EXERCISER) IS BEING RUN. AN ASTERISK («) 
APPEARING NEXT TO A NUMBER IN THE FORMAT BELOW REPRESENTS EITHER A 
SPACE OR THE LETTER “K”. THE “K” FORMAT WILL BE USED IF THE STATISTIC 
IS GREATER THAN 65,000. ALL VALUES ARE IN DECIMAL RADIX. 


a TESS {TR a SRR RS SS RS 


SEQ 0019 


ee ee 





SEQ 0020 
4.1 MULTI-DRIVE SUBTEST REPORTS 
~—aen. 


ELAPSED TIME: XX:XX:XX 


NO. NO. NO. 
UNIT READS WRITES MBYTES MBYTES HARD ERROR 
NO. (K=1000) (K=1000) READ WRITTEN ERRORS LOGS 


XX XXXXX#& XXXXX* XXXXX = XXXXX XXXXX  XXXXX 
XX XXXXX# XXXXX# XXXXX = XXXXX XXXXX XXXXX 
XX XXXXX# XAXXX* XXXXX XXXXX XXXXX XXXXX 


. . . © 
. > ° . . 


ECC ERRORS ARE REPORTED THROUGH ERROR LOG MESSAGES. THEY ARE TALLIED 
REGARDLESS OF WHETHER THE MESSAGE PRINTING HAS BEEN SUPPRESSED. 


N SYMBOL ECC ERRORS: 


ECC 
UNIT FIELD N= N = N= N = N = N = N = N = 
NO. ONLY 1 2 3 4 5 6 7 8 


XX = XXXXX XXXXX XXXXX XXXXX XXXXX XRXXXXX XAXXXXK XXKXAXKX XXXXX 
XX = XXXXX XXXXX XXXXX XXXXX XXXXX XNXXXX XAXXXX XXKXX XXKXX 
XX = XXXXX = XXXXX XXXXX XXXXX XXXXX XXXXX XXXXKX XXXXKX XXXXX 


4.2 DM EXERCISER SUBTEST REPORT 
ELAPSED TIME: XX:XX:XX 


NO. NO. NO. 
UNIT READS WRITES SEEKS MBYTES MBYTES NO. HARD NO. SOFT 
NO. (K=1000) (K=1000) (K=1000) READ WRITTEN ERRORS ERRORS 


XX XXXXX# XXXXX XXXXX* XXXXX XXXXX XXXXX XXXXX 
XX XXXXX« XXXXX* XXXXX* XXXXX XXXXX XXXXX XXXXX 


XX XXXXX & XXXXX* XXXXX« XXXXX = XXXXX XXXXX XXXXX 











5.0 DEVICE INFORMATION TABLES 
THE HARDWARE P-TABLE APPEARS AS FOLLOWS FOR EACH UNIT: 


15 00 
Sl Rel tele Sele Dee oe fee See ee ee ee eee ee eee ee eee a 
) IP ADDRESS } 
| ll Sell Del Del tele Dele eet oe oe ee eet eee ee ee ee ees 


} VECTOR ADDRESS > 


5 led Melee Bedi, Malet Det, ete foe oe oe oe ee ee ee ee ee ee 


) BR LEVEL ) 


| le elie Meld Bled Del Dele tet ee ed oe oe eee ee? ee ee eo 


)PR) ) PLATTER ADDRESS ) 


| lied Medd Dell Bete, Dele Rete toed De oe oe eee eee ee ee ee ee 


PR - UNIT PROTECTION BIT 


DURING THE INITIALIZATION PROCESS AFTER A START, RESTART, OR CONTINUE 
COMMAND, THE RC25 DISK EXERCISER CREATES UP TO FOUR RUN-TIME TABLES 
(CALLED CONTROLLER STATUS TABLES, OR CST‘S), AND FILLS THEM WITH 
INFORMATION DERIVED FROM THE HARDWARE P-TABLES OF ALL ACTIVE UNITS. 
THESE TABLES ARE NOT USER-ACCESSIBLE; THEIR FORMAT IS PRESENTED HERE 
ONLY TO SHOW THE VIEW OF THE WORLD AS SEEN BY THE EXERCISER. EACH CST 
IS A DYNAMIC 7-WORD BLOCK: 


15 00 
| ld Ald Rell Dell tele teed Deed Loe oe Soe et eee eee eee ee ees 
} IP ADDRESS ) 
| lid Meld Delia Metal tele Delt tote foe oe foe ee ee eee eee ee ee 
cS) ) VECTOR ADDRESS } 
S lid eld Dele Rell tell Sete tele oe fee fee eee eee eee eee ee ees 
> NUMBER OF UNITS ) BR LEVEL > 
Sled Rell Dele Dell Delt Reed tele oe foe foe eet eee eee eee ee ee 
)PR)UP}US} UNIT NUMBER )} PLATTER ADDRESS } 
Sled eld Dell Meld ele Dee Dot Soe oe? foe! ee! eee ee ee ee ees 
)PR}UP)US) UNIT NUMBER } PLATTER ADDRESS ) 
Sl Rell Dele ee oe oe 2 oe fee Se eee See eee ene eee ees 
)PR}UP US} UNIT NUMBER ) PLATTER ADDRESS } 
Sl Mele Dele Dee toe ee oe! ee fee See eee See eee eee eee eee 
)PR)UP US} UNIT NUMBER )} PLATTER ADDRESS d 


S led Meld Dele Bele, tele Soe Doe eo oe ee ee eee ee? ee ee ee 


CS - CONTROLLER STATUS BIT (ONLINE / OFFLINE) 
PR - UNIT PROTECTION BIT 

UP - UNIT PRESENT BIT 

US - UNIT STATUS BIT CONLINE / OFFLINE) 


6.0 SUBTEST SUMMARIES 


THE RC25 DISK EXERCISER CONSISTS OF ONE TEST SUBDIVIDED INTO THREE 
SUBTESTS: INITIALIZATION, MULTI-DRIVE, AND DM EXERCISER. IN THE FIRST 
PASS FOLLOWING A START, RESTART, OR CONTINUE COMMAND, THE 
INITIALIZATION SUBTEST WILL ALWAYS PRECEDE THE EXECUTION OF ANY OTHER 
SUBTEST. SUBSEQUENT PASSES WILL NOT INCLUDE THE INITIALIZATION SUBTEST. 


SEQ 0021 





6.1 INITIALIZATION SUBTEST 


THE PURPOSE OF THE INITIALIZATION SUBTEST IS TO VERIFY THE HARDWARE 
CONFIGURATION AS SPECIFIED BY THE OPERATOR, AND TO BRING EACH UNIT 
ONLINE. SPECIFICALLY, THE SUBTEST PERFORMS THE FOLLOWING ACTIONS FOR 
EACH CONTROLLER IN TURN: 


1. A DEVICE REGISTER EXISTENCE TEST - TO VERIFY THAT THE 
CONTROLLER'S IP AND SA REGISTERS APPEAR ON THE UNIBUS, 

A VECTOR INTERRUPT TEST - TO INSURE THAT THE DEVICE CAN 
INITIATE VECTORED INTERRUPTS TO THE PROCESSOR, 

A BR LEVEL TEST - TO VERIFY THAT THE DEVICE INTERRUPT OCCURS 
AT THE BR LEVEL SPECIFIED BY THE OPERATOR, 

A FOUR-STEP HARD INIT SEQUENCE, AS DEFINED IN THE UNIBUS / 
Q-BUS STORAGE SYSTEMS PORT SPECIFICATION, 

THE ert OF THE “SET CONTROLLER CHARACTERISTICS” COMMAND 
MS . 

THE SENDING OF THE MSCP “ONLINE” COMMAND FOR EACH PLATTER 
SPINNING UNDER THE CONTROLLER, 

THE SENDING OF ONE OR TWO MSCP “ACCESS” COMMANDS FOR EACH 
a ct een THE CONTROLLER TO VERIFIY THAT EACH DISK 


ANY CONTROLLER-FATAL ERRORS ENCOUNTERED DURING THE INITIALIZATION 
SUBTEST WILL CAUSE ALL ITS UNITS TO BE DROPPED FROM TESTING. ANY UNIT- 
FATAL ERRORS WILL CAUSE ONLY THE APPROPRIATE UNIT TO BE DROPPED. FOR 
ALL SURVIVING CONTROLLERS AND UNITS, THE PROGRAM WILL THEN BEGIN 
EXECUTION OF EITHER THE MULTI-DRIVE OR DM EXERCISER SUBTEST. 


6.2 MULTI-DRIVE SUBTEST 


THE PURPOSE OF THE MULTI-DRIVE SUBTEST IS TO EXERCISE THE DISK DRIVES 
IN A MANNER SIMILAR TO HEAVY USAGE IN AN OPERATING SYSTEM ENVIRONMENT. 
THE SUBTEST ISSUES MSCP I/0 COMMANDS TO ALL UNITS FAST ENOUGH SO THAT 
EACH CONTROILLER HAS SEVERAL COMMANDS QUEVED AT ANY GIVEN TIME. THE I/0 
COMMAND PARAMETERS ARE GOVERNED BY USER RESPONSES DURING THE SOFTWARE 
QUESTIONING, EXCEPT THAT BYTE COUNTS ARE DETERMINED AT RANDOM. AS EACH 
I/O OPERATION COMPLETES, THE PROGRAM UPDATES THE STATISTICAL TALLY 
UNTIL THE SPECIFIED NUMBER OF MEGABYTES HAS BEEN TRANSFERRED TO / FROM 
EACH UNIT. WHEN THIS HAPPENS, END-OF-PASS IS DECLARED, AND THE SUMMARY 
REPORT IS PRINTED. 


IF THE RC25 EXPERIENCES A READ / WRITE ERROR, IT WILL TRY A VARIABLE 
NUMBER OF TIMES TO CORRECT THE ERROR. IF ALL RETRIES FAIL, THEN A HARD 
ERROR WILL BE REPORTED TO THE HOST, AN ERROR MESSAGE WILL BE DISPLAYED 
ON THE CONSOLE TERMINAL, AND THE ERROR WILL BE TALLIED FOR THE SUMMARY 
REPORT. THE UNIT INVOLVED WILL BE DROPPED FROM TESTING IF ITS HARD 
ERROR COUNT HAS EXCEEDED THE USER-SPECIFIED LIMIT. 


vn oO uw S&S WwW fF 
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6.3 DM EXERCISER SUBTEST 


THE OM EXERCISER CONSISTS OF THE FRONT PANEL TEST (ROM RESIDENT ON THE 
CONTROLLER BOARD) RUN IN A CONTINUOUS LOOP UNDER HOST SUPERVISION. IT 
IS USED TO EXERCISER A DISK BY (A) PERFORMING READS ON ALL TRACKS OF 
THE PLATTER, AND (8) FORCING WRITES 10 THE DIAGNOSTIC TRACKS ONLY. ALL 
ERRORS DETECTED IN THE DIAGNOSTIC MACHINE, BOTH HARD AND SOFT, WILL BE 
REPORTED TO THE HOST IN STATISTICAL FORM FOR THE SUMMARY REPORT, BUT 
THEY WILL NOT APPEAR IN THE CUMULATIVE ERROR COUNT WITH THE END-OF- 
PASS MESSAGE. THE NUMBER OF SEEKS, READS, AND WRITES WILL ALSO BE 
REPORTED AND TALLIED. AS IN THE MULTI-ORIVE SUBTEST, END-OF-PASS WILL 
BE DECLARED WHEN ALL UNITS HAVE REACHED THE MEGABYTE TRANSFER LIMIT 
SPECIFIED BY THE USER. (NOTE THAT THIS SUBTEST TAKES MUCH LONGER TO 
ACCOMPLISH THE SAME FEAT; IT TAKES ABOUT 10 MINUTES PER UNIT TO REACH A 
2 MEGABYTE TRANSFER LIMIT). 


THE HOST INITIATES THE FRONT PANEL TEST (FPT) WITH A CROM PRIMER 
PROGRAM, WHICH IS DOWNLINE LOADED FROM THE HOST TO THE RC25 VIA THE DUP 
COMMAND “EXECUTE SUPPLIED PROGRAM”. THE CROM PRIMER IS RESPONSIBLE FOR 
LOADING THE FRONT PANEL TEST INTO RC25 RAM SPACE, THEN PASSING CONTROL 
TO IT. IF THE “EXECUTE SUPPLIED PROGRAM” SUCCEEDS, THE HOST RESPONDS BY 
ISSUING THE DUP COMMAND “SEND DATA”. THIS COMMAND TELLS THE FRONT PANEL 
TEST THE LOCATION OF THE HOST / FPT COMMUNICATION AREA, A BLOCK OF HOST 
MEMORY RESERVED FOR MUTUAL ACCESS. 


THE FPT EXERCISES ONE PLATTER AT A TIME PER PASS, AND EACH FPT PASS 
TAKES APPROXIMATELY 5 MINUTES. AT THE COMPLETION OF EACH FPT PASS, A 
NEW SET OF STATISTICS IS LOADED INTO THE HOST COMMUNICATION AREA, AND 
THE FPT GOES ON TO EXERCISE THE NEXT UNIT. IF THE HOST FAILS TO DETECT 
A NEW SET OF STATS WITHIN A TIMED INTERVAL, THEN A DEVICE-FATAL ERROR 
WILL BE DECLARED, AND ALL UNITS ASSOCIATED WITH THE CONTROLLER WILL BE 
DROPPED. OTHERWISE, THE UNIT NUMBER AND THE NUMBER OF BLOCKS 
TRANSFERRED DURING THE FPT PASS WILL BE DISPLAYED TO THE USER CIF IN 
ATTENDED MODE). 


7.0 MAINTENANCE HISTORY 


DATE: AUTHOR : PRODUCT NAME: 
13-JUL -83 JAMES S. DOUCETTE CZRCDAO.BIN 
17-JUN-85 GARY Y. CHIN CZRCDBO.BIN 
NOTE 


CZRCDBO.BIN was modified to run on the PDP-11/84. The four steps of 
Initialization routines now measure time off of the real-time clock. 
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APPENDIX A - DATA PATTERNS 


THERE ARE 21 PRE-DEFINED DATA PATTERNS SUPPLIED WITH THE MULTI-DRIVE 
SJBTEST. THROUGH THE SOFTWARE QUESTIONS, YOU MAY CHOSE ANY ONE PATTERN 
TO BE USED FOR ALL WRITE OPERATIONS, OR YOU MAY HAVE ALL PATTERNS USED 
SEQUENTIALLY. THE “LBN” APPEARING IN PATTERNS 17 - 21 REPRESENTS THE 


STARTING BLOCK NUMBER OF THE CURRENT WRITE REQUEST. 
BINARY 


HEX 


PATTERN 1 

PATTERN 2 0000 
PATTERN 3 FFFF 
PATTERN 4 8888 
PATTERN 5 3333 
PATTERN 6 3091 
PATTERN 7 0001 


PATTERN 8 FFFE 


RANDOM 
000000 
177777 
105613 
031463 
030221 


177777 


177776 
177774 
177770 
177760 
177740 
177700 
177600 
177400 
177000 
176000 
174000 
170000 
160000 
140000 
100000 
000000 


NUMBERS 
0 000 000 000 


OPP PrP PEP rrr rrr rrFrF FPOOCOOOCOCOOCOCOCOCCOCCOOo 0 OF 


111 
000 


111 
101 


111 
110 
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PATTERN 9 


PATTERN 10 
PATTERN 11 


PATTERN 12 


PATTERN 13 


177777 
133331 
052525 


125252 


026455 
026455 
026455 
151322 
151322 
151322 
026455 
026455 
151322 
151322 
026455 
026455 
151322 
026455 
151322 
026455 
151322 
026455 
151322 
026455 


066666 


o OFOFPOrPOrRPOCORPrPOCOFPFFrFOOO FOFrFPOFPOFPFrFPOOFPFFOOO fF FOF OFOFFKFOOFFFHFOOO 
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SS 


— 


PATTERN 14 


PATTERN 15 


PATTERN 16 


177776 
177775 
177773 
177767 
177757 
177737 
177677 
177577 
177377 
176777 
175777 
173777 
167777 
157777 
137777 
077777 


133331 
133331 
133331 
155554 
155554 
155554 
133331 
133331 
155554 
155554 
133331 
155554 
133331 
155554 
133331 
155554 


ee Oe ee ee pe pe pe pe KFoooocoooocoooooco 
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_- 


PATTERN 17 


PATTERN 18 


PATTERN 19 











LBN LBN 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
071311 0 111 001 011 001 001 
071311 0 111 001 011 001 001 
071311 © 111 001 011 001 001 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
071311 O 111 001 011 001 001 
071311 0 111 001 011 001 001 
071311 O 111 001 011 001 001 
071311 O 111 001 011 001 001 
071311 © 111 001 011 001 001 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
LBN LBN 
071311 O 111 001 011 001 001 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
071311 0 111 001 011 001 001 
071311 O 111 001 011 001 001 
071311 0 111 001 011 001 001 
071311 0 111 001 011 001 001 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
106466 1 000 110 100 110 110 
07131 O 111 001 011 001 001 
071311 O 111 001 011 001 001 
071311 0 111 001 011 001 001 
071311 © 111 001 011 001 001 
071311 0 111 001 O11 001 001 
071311 O 111 001 011 001 001 


LBN LBN 


134631 1 011 100 110 011 001 
134631 1 011 100 110 011 001 
043146 0 100 011 001 100 110 
043146 0 100 011 001 100 110 
043146 © 100 011 001 100 110 
134631 1 011 100 110 011 001 
134631 1 011 100 110 011 001 
134631 1 011 100 110 011 001 
134631 1 011 100 110 011 001 
043146 © 100 011 001 100 110 
043146 © 100 011 001 100 110 
043146 © 100 011 001 100 110 
043146 0 100 011 001 100 110 
043146 © 100 O11 001 100 110 
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8999 134631 
8999 134631 
B999 134631 
8999 134631 
8999 134631 
B999 134631 


PATTERN 20 8999 134631 
L6N LBN 
4666 043146 
6999 134631 
8999 134631 
8999 134631 
4666 043146 
4666 043146 
4666 043146 
4666 043146 
B999 134631 
B999 134631 
8999 134631 
6999 134631 
B999 134631 
4666 043146 
4666 043146 
4666 043146 
4666 043146 
4666 043146 
4666 043146 


PATTERN 21 LBN LBN 


ooocoooorrr.F.F.OOCOOCOOrrr oO a Pe pe he ee pe pe 





O11 
O11 
O11 
O11 
O11 
O11 


O11 


100 
011 
O11 
011 
100 
100 
100 
100 
011 
011 
O11 
011 
011 
100 
100 
100 
100 
100 
100 
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APPENDIX B - GLOSSARY 


ee 


AZTEC - PROJECT NAME FOR THE RC25 


MASS STORAGE COMMUNICATION PROTOCOL (MSCP) - THE METHOD OF 
COMMUNICATION USED BETWEEN THE HOST AND RC25 CONTROLLER. 


DIAGNOSTIC MACHINE (DM) - AN INTERPRETER BUILT INTO THE RC25 FIRMWARE 
THAT IS USED TO EXECUTE RESIDENT OR DOWNLINE LOADED PROGRAMS. 


INITIALIZATION SEQUENCE - THE SERIES OF COMMANDS EXECUTED TO BRING AN 
RC25 ONLINE TO THE HOST. THIS SEQUENCE IS A STRICTLY-DEFINED SET OF 
ore STEPS WHICH INFORMS THE DEVICE OF SUCH THINGS AS RING LOCATION AND 


UNIT - A UNIT AS SEEN BY THE DIAGNOSTIC SUPERVISOR; THAT IS, A SINGLE 
RC25 DISK PLATTER. 


DRIVE-UNIT - A SINGLE RC25 DRIVE WITH A FIXED AND A REMOVABLE PLATTER 
ON ONE SPINDLE. 


UNIT NUMBER - A NUMBER BETWEEN 0 AND 15 INCLUSIVE WHICH IDENTIFIES A 
PLATTER TO THE DIAGNOSTIC SUPERVISOR. UNIT NUMBERS ARE ASSIGNED 
SEQUENTIALLY FROM O BY THE DIAGNOSTIC SUPERVISOR DURING THE HARDWARE 
CONFIGURATION QUESTIONS. THERE IS NO RELATIONSHIP BETWEEN A DISK'S UNIT 
NUMBER AND ITS PLATTER ADDRESS. 


SEQ 0029 











SEQ 0030 
PLATTER ADDRESS - A NUMBER BETWEEN 0 AND 253 THAT UNIQUELY IDENTIFIES 
ONE RC25 PLATTER. THIS NUMBER IS ASSIGNED THROUGH THE UNIT PLUG ON THE 
FRONT PANEL OF AN RC25. EVEN PLATTER ADDRESSES ALWAYS DESIGNATE THE 
— DISK AND ODD PLATTER ADDRESSES ALWAYS DESIGNATE THE FIXED 
K. 


CUSTOMER DATA AREA (ALSO HOST APPLICATION AREA) - BLOCKS RESERVED ON AN 
RC25 PLATTER FOR FREE USE BY THE CUSTOMER. THIS AREA EXCLUDES THE 
DIAGNOSTIC TRACKS (DBN), THE FCT, THE RCT, AND RBN’S. 


PROTECTED CUSTOMER DATA AREA - AN RC25 PLATTER WHOSE CUSTOMER TRACKS 
— BY THE USER THROUGH THE HARDWARE CONFIGURATION 
3 N. 


LBN (LOGICAL BLOCK NUMBER) - GIVEN THAT N IS THE NUMBER OF BLOCKS IN 
THE HOST APPLICATION AREA, LBN IS A NUMBER BETWEEN O AND (N - 1) 
INCLUSIVE WHICH IDENTIFIES A SINGLE SUCH BLOCK. 








SEQ 0031 
CZRCD.EXE Memory allocation map TKB M40.02 Page 1 
14-JUN-85 09:50 


Partition name : DUMMY 

Identification : V02.0 

Task UIC : [200,250] 

Task attributes: -HD 

Total address windows: 1. 

Task image size : 14720. words 

Task address limits: 002000 073307 

R-W disk blk Limits: 000002 000073 000072 00058. 


aa Root segment: CZRCD1 


R/W mem limits: 002000 073307 071310 29384. 
Disk blk Limits: 000002 000073 000072 00058. 


Memory allocation synopsis: 


Section Title Ident File 
. BLK.:(RW,I,LCL,REL,CON) 002000 000000 00000. 
SCODE$:(RC,I,LCL,REL,CON) 002000 040426 16662. 
002000 006550 03432. CZRCD1 V0O2.0 CZRCD1.0BU;4 
010550 011544 04964. CZRCD2 v0O2.0 CZRCD2.0BU;3 
022314 017432 07962. CZRCD3 VO2.0 CZRCD3.0BU;11 
041746 000034 00028. B1i6ABS V3.0 AZLIB.OLB;1 
042002 000316 00206. BI6MUL V3.0 AZLIB.OLB;1 
042320 000106 00070. Bi6SAV V3.0 AZLIB.OLB;1 
SFFF$ :(RO,I,LCL,REL,CON) 042426 023714 10188. 
042426 023714 10188. CZRCD1i VO2.0 CZRCD1.0BU;4 
$GGG$ :(RO,I,LCL,REL,CON) 066342 002616 01422. 
066342 002616 01422. CZRCD3 VO2.0 CZRCD3.0BU;11 
$PLIT$:(RO,D,LCL,REL,CON) 071160 002066 01078. 
071160 001716 00974. CZRCD2 vVO2.0 CZRCD2.08U;3 
073076 000150 00104. CZRCD3 VO2.0 CZRCD3.0BU;11 








AT 





















SEQ 0032 
$XYZ$ :(RO,I,LCL,REL,CON) 073246 000040 00032. 
073246 000040 00032. CZRCD4 VO2.0 CZRCD4.0BU;3 


Giobal symbols: 


ADR 000020 BIT10 002000 BIT9 001000 CER.O1 004140-R CST 042756-R DUM.IE 004450-R EBD.18 006160-R 
BITO 000001 BIT11 004000 BL$ABS 041770-R CER.02 004224-R CST.AD 043046-R DUM.UC 004376-R €EBD.19 006224-R 
BITOO 000001 BITi2 010000 BL$DIV 042226-R CER.03 004270-R CTLR.C 066246-R DUM.UE 004526-R EBD.20 006264-R 
BITO1 000002 BIT13 020000 BL$LAS 073246-R CLK.CS 066310-R CUOFF 066244-R DUM.00 004344-R £8D.21 006350-R 
BITO2 000004 BIT14 040000 BL$MOD 042240-R CLK.HE 066306-R OCT 043050-R DUR 066250-R EBD.22 006436-R 
BITO3 000010 BIT15 100000 BL$MUL 042002-R CLK.IN 014756-R DCT.AD 043160-R DSPCNT 002122-R EBH.31 006556-R 
BITO4 000020 BIT2 000004 BL$SGN 041746-R CLK.TY 066304-R DFPTBL 010450-R EBD.10 005400-R EBH.32 006602-R 
BITOS 000040 BITS 000010 BL$SHF 042252-R CLK.VE 066312-R OMC.AD 043506-R EBD.12 005444-R EBH.34 006650-R 
BITO6 000100 BIT4 000020 BOE 000400 COPY.B 015060-R DM.COM 043166-R £8D.13 005526-R €&BH.35 006674-R 
BITO7 000200 BITS 000040 BUFF.D 065466-R CPLAT 066242-R DROP.C 016262-R EBD.14 005604-R EBH.36 006724-R 
BITO8 000400 BIT6 000100 BUFF .0 066066-R CPT 042736-R DRV.CT 016366-R EBD.15 005676-R EBH.37 006750-R 
BITO9 001000 BIT7 000200 BUFF .S 066300-R CRLF 010442-R DUM.CE 004420-R EBD.16 005766-R EBH.38 007002-R 
BIT1 000002 BIT8 000400 CCTLR 066240-R CRN 066340-R DUM.HE 004470-R €EBD.17 006062-R EBH.39 007022-R 











CZRCD1 14-JUN-85 09:50 


EBH.40 007060-R EOP.FL 066234-R GP$17 
EBH.41 007106-R ERRBLK 002134-R GP$18 
EBH.42 007126-R ERRMSG 002132-R GP$i9 
EBH.43 007174-R ERRNBR 002130-R GPS$2 
EBS.01 005332-R ERRTYP 002126-R GP$20 
EF .CON 000036 ETIME 010372-R GP$21 
EF .NEW 000035 EVL 000004 GP $3 
EF .PWR 000034 EX.BB 007654-R GP$4 
EF .RES 000037 EX.BC 010012-R GPSsS 
EF .STA 000040 EX.BD 010070-R GPS%6 
EGD.10 004654-R EX.CBC 007744-R GP$7 
EGD.11 004714-R EX.CMD 007474-R GPS$8 
EGD.12 004740-R EX.CMP 007636-R GP$9 
EGD.13 004766-R EX.CRN 007304-R HARD.E 
EGD.i4 005014-R EX.DSC 007400-R HOE 
EGD.15 005052-R EX.EL 010150-R HOURS 
EGD.16 005104-R EX.ESP 007546-R HWPT.B 
EGD.17 005122-R EX.EVC 010262-R HWPT.I 
EGD.18 005152-R EX.FMT 010242-R HWPT.P 
EGD.19 005170-R EX.HMA 010306-R HWPT.V 
EGD.20 005210-R EX.LBN 007720-R HWQ1 
EGD.21 005234-R EX.ONL 007534-R HWQ2 
EGD.22 005260-R EX.03 010356-R HWQ3 
EGH.30 005306-R EX.PA 010212-R HWQ4 
EGS.01 004556-R EX.RD 007616-R HWQ5 
EGS.02 004576-R EX.SA 007256-R HWQ6 
EMS.01 020706-R EX.SB 007440-R IBE 
EMS.10 020750-R EX.SC 007342-R IDU 
EMS.12 021016-R EX.SCC 007514-R IER 
EMS.13 021060-R EX.SND 007602-R IIP.FL 
EMS.14 021132-R EX.WRT 007626-R IN.IOD 
EMS.15 021200-R FREE.M 066276-R I00Q 
EMS.16 021246-R GET.EN 015412-R I0DQ.I 
EMS.17 021320-R GET.IO 015720-R I0DQ.0 
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011044-R 
011054-R 
011064-R 
010636-R 
011102-R 
011114-R 
010646-R 
010660-R 
010672-R 
010702-R 
010716-R 
010730-R 
010742-R 
016502-R 


066236-R 
016174-R 
066166-R 
066226-R 
066230-R 


002106-R 
014254-R 
002032-R 
002011-R 
010576-R 
002076-R 
002060-R 
002124-R 
002116-R 
002040-R 
002034-R 
014646-R 
002072-R 
010550-R 
002052-R 
002044-R 
002126-R 
002102-R 
002046 -R 
002064 -R 
002066 -R 
010626-R 
002120-R 
002016-R 
002022-R 
010624-R 
010450-R 
010446-R 
002104-R 
014032-R 
002026-R 
073252-R 
002100-R 
002074-R 


L$REV 
L$RPT 
L$SFTL 
L$SOFT 
L$SPC 
L$SPCP 
L$SPTP 
L$STA 
L$SW 
L$SWLE 
L$TEST 


002010-R 
012236-R 
010714-R 
010716-R 
002056-R 
002020-R 
002024-R 
002030-R 
010464-R 
010462-R 
002114-R 
002014-R 
002012-R 
066235-R 
066274-R 
066316-R 
045462-R 
003466-R 
003520-R 
003616-R 
003636-R 
003670-R 
003730-R 
003772-R 
004044-R 
066336-R 
014746-R 
003464-R 
066302-R 
044054-R 
044056-R 
066332-R 
043554-R 
043654-R 


000200 
000240 
000300 
000340 
016074-R 
015536-R 
015522-R 
016010-R 
015704-R 
066270-R 
037326-R 
037344-R 
037364-R 
037404-R 
043162-R 
062422-R 
043550-R 
043552-R 
065464-R 
065462-R 
043510-R 
065422-R 
066334-R 
066326-R 
066320-R 
017126-R 
015120-R 
015314-R 
010464-R 
006542-R 
006556 -R 
006602-R 
006626 -R 
006650-R 








010475-R 
010464-R 
010472-R 
010474-R 
010470-R 
010476-R 
010500-R 
010466-R 
002414-R 
003024-R 
003100-R 
003144-R 
003176-R 
003274-R 
003352-R 
002452-R 
002530-R 
002576-R 
002656-R 
002700-R 
002720-R 
002736-R 
003010-R 
044060-R 
066322-R 
073302-R 
000002 

045460-R 
066233-R 
022420-R 
000200 

016572-R 
017372-R 
016734-R 





















SEQ 0034 
EMS.18 021362-R GET.RE 015576-R IRC25. 043164-R LSMREV 002050-R OUT.IO 016136-R STC.05 006674-R $END.L 073304-R 
EMS.19 021434-R GPSDIS 011022-R ISR 000100 LSNAME 002000-R OVF.CH 016660-R STC.06 006724-R $SAVE2 042320-R 
EMS.20 021502-R GP$i 010626-R IXE 004000 LSNDHR 010712-R PATCH 042426-R STC.07 006750-R $SAVE3 042334-R 
EMS.21 021544-R GP$10 010750-R LOE 040000 LSNDHW 010460-R PLATT 010416-R STC.08 007002-R $SAVE4 042352-R 
EMS.22 021632-R GP$11 010760-R LOT 000010 L$NDSF 011134-R PNT 001000 STC.09 007022-R $SAVES 042372-R 
EMS.30 021674-R GP$12 010766-R LSACP 002110-R LSNDSW 010540-R PRI 002000 STC.10 007060-R 
EMS.42 022044-R GP$i3 011000-R LSAPT 002036-R LSPRIO 002042-R PRIOO 000000 STC.11 007106-R 
EMS.43 022132-R GP$14 011014-R LSAU 014736-R LS$PROT 010542-R PRIO1 000040 STEP 066330-R 
ENTRY. 066232-R GP$15 011026-R L$AUT 002070-R LSPRT 002112-R PRIO2 000100 ST.COD 066324-R 
ENV.US 062262-R GP$16 011034-R L$AUTO 014044-R LSREPP 002062-R PRIO3 000140 SWM1 003370-R 


aa% Task builder statistics: 


Total work file references: 73188. 

Work file reads: 0. 

Work file writes: 0. 

Size of core pool: 4816. words (18. pages) 
Size of work file: 3840. words (15. pages) 
Elapsed time:00:00:57 
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CZRCO CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 1 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 

AOR 000020 # CZRCD1 # CZRCD2 # CZRCD3 
BITO 000001 # CZRCD1 # CZRCD2 # CZRCD3 
BITOO 000001 # CZRCD1 # CZRCD2 # CZRCD3 
BITO1 000002 # CZRCD1 @ CZRCD2 # CZRCD3 
BITO2 000004 # CZRCD1 # CZRCD2 # CZRCD3 
BITO3 000010 # CZRCD1 # CZRCD2 # CZRCD3 
BITO4 000020 # CZRCD1 # CZRCD2 # CZRCD3 
BITOS 000040 # CZRCDi # CZRCD2 # CZRCD3 
BITO6 000100 # CZRCOi # CZRCD2 # CZRCD3 
BITO7 000200 # CZRCD1 # CZRCD2 # CZRCD3 
BITO8 000400 # CZRCD1 # CZRCD2 # CZRCD3 
BITO9 001000 # CZRCD1 # CZRCD2 # CZRCO3 
BIT1 000002 # CZRCD1 # CZRCO2 # CZRCD3 
BIT10 002000 # CZRCD1 # CZRCD2 # CZRCD3 
BIT11 004000 # CZRCD1 # CZRCD2 # CZRCD3 
BITi2 010000 # CZRCO1 # CZRCD2 # CZRCD3 
BIT13 020000 # CZRCD1 # CZRCD2 # CZRCD3 
BIT14 040000 # CZRCD1 # CZRCD2 # CZRCD3 
BITi15 100000 # CZRCD1 @ CZRCD2 # CZRCD3 
BIT2 000004 # CZRCD1 # CZRCD2 # CZRCD3 
BIT3 0C0010 # CZRCD1 # CZRCD2 # CZRCD3 
BIT4 000020 # CZRCD1 # CZRCD2 # CZRCD3 
BITS 000040 # CZRCDL # CZRCD2 # CZRCD3 
BIT6 000100 # CZRCD1 # CZRCD2 # CZRCD3 
BIT? 000200 # CZRCD1 # CZRCD2 # CZRCD3 
BITS 000400 # CZRCDi # CZRCD2 # CZRCD3 
BIT9 001000 # CZRCD1 # CZRCD2 # CZRCD3 
BL$ABS 041770-R # Bi6ABS CZRCD3 

BLSDIV 042226-R # B16MUL CZRCD3 

BLSLAS 073246-R # CZRCD4 

BL$MOD 042240-R # B16MUL CZRCD3 

BL$MUL 042002-R # B16MUL CZRCD2 CZRCD3 








SEQ 0036 


BL$SGN 041746-R @ Bi6ABS 

BLSSHF 042252-R ¢ B16MUL CZRCO3 

BOE 000400 @ CZRCDi @ CZRCD2 # CZRCD3 
BUFF .D 065466-R #@ CZRCD1 CZRCD2 CZRCD3 
BUFF.0 056066-R # CZRCD1 CZRCD2 CZRCD3 
BUFF .S 066300-R # CZRCD1 CZRCD2 CZRCD3 
CCTLR 066240-R #@ CZRCD1 CZRCD2 CZRCD3 
CER.O1 004140-R @ CZRCD1 CZRCD2 

CER.02 004224-R # CZRCD1 CZRCD2 

CER.0O3 004270-R # CZRCD1 CZRCO2 

CLK.CS 066310-R #@ CZRCD1 CZRCD2 CZRCD3 
CLK.HE 066306-R # CZRCD1 CZRE22 CZRCD3 


. # CZRCD1 CZRCD2 CZRCD3 
CLK.VE 066312-R @ CZRCD1-. CZRCD2 CZRCD3 
. # CZRCD2 CZRCD3 
CPLAT 066242-R # CZRCD1 CZRCD2 CZRCD3 
# CZRCD1 CZRCD2 CZRCD3 
CRLF 010442-R # CZRCD1 CZRCD2 
CRN 066340-R # CZRCD1 CZRCD2 CZRCD3 








CREATED BY TKB 
CROSS REFERENCE 
REFERENCES... 


VALUE 
042756-R 


# 
a 
¢ 
¢ 
4 
% 
4 


ee Sees 2224550960469 69 


CZRCD1 
CZRC01 
CZRCO1 
CZRCD1 
CZRCO1 
CZRCD1 
CZRCO1 


CZRCO1 
CZRCD1 
CZRCD1 
CZRCO1 
CZRCO1 
CZRCD1 
CZRCO1 
CZRCD1 
CZRCD1 
CZRC01 





ON 14-JUN-85 AT 09:50 


CZRCO02 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 


CZRCD2 
CZRCD2 
CZRCD3 
CZRCD3 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 


CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCO2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 





CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 


CZRCD3 
CZRCD3 


CZRCD3 





006650 -R 
006674 -R 
006724-R 


@ CZRCD1 
# CZRCD1 
@ CZRCO1 
@ CZRCO1 
@ CZRCD1 
@ CZRCO1 
@ CZRCO1 
@ CZRCO1 
@ CZRCD1 
@ CZRCD1 
@ CZRCD1 
@ CZRCD1 
# CZRCD1 
@ CZRCD1 
@ CZRCO1 
# CZRCO1L 
@ CZRCD1 
@ CZRCD1 
@ CZRCD1 


eeeeoeo 


CzRCD2 
CZRCD2 
CZRCO02 
CZRCD2 
CZRCD2 
CZRC02 
CZRC02 
CZRCD2 
CZRCD2 
CZRCO02 
CZRCD2 
CZRCO2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD3 
CZRCO3 


CZRCD3 


@ CZRCO3 
# CZRCD3 
# CZRCD3 
# CZRCD3 
@ CZRCD3 








SEQ 0038 


RS ASSESSES et SRS 





SEQ 0039 
czrRco CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 3 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 


EGD.13 004766-R #@ CZRCD1 CZRCO3 
EGD.14 005014-R @ CZRCD1 CZRCD3 
EGD.15 005052-R # CZRCD1 CZRCO3 
EGD.16 005104-R #@ CZRCD1 CZRCD3 
EGD.17 005122-R # CZRCD1 CZRCD3 
EGD.18 005152-R #@ CZRCD1 CZRCD3 
EGD.19 005170-R @ CZRCD1 CZRCO3 
EGD.20 005210-R @ CZRCD1 CZRCD3 
EGD.21 005234-R @ CZRCD1 CZRCO3 
EGD.22 005260-R #@ CZRCD1 CZRCD3 
EGH.30 005306-R #@ CZRCD1 CZRCD3 
EGS.01 004556-R # CZRCD1 CZRCD2 
EGS.02 004576-R @ CZRCD1 CzRCD2 
EMS.01 020706-R # CZRCD2 

EMS.10 020750-R # CZRCD2 CZRCO3 
EMS.12 021016-R # CZRCD2 CZRCD3 
EMS.13 021060-R # CZRCD2 CZRCO3 
EMS.14 021132-R # CZRCD2 CZRCD3 
EMS.15 021200-R # CZRCD2 CZRCO3 
EMS.16 021246-R # CZRCD2 CZRCO3 
EMS.17 021320-R # CZRCD2 CZRCO3 
EMS.18 021362-R # CZRCD2 CZRCD3 
EMS.19 021434-R # CZRCD2 CZRCD3 
EMS.20 021502-R # CZRCD2 CZRCO3 
EMS.21 021544-R @# CZRCD2 CZRCD3 
EMS.22 021632-R # CZRCD2 CZRCD3 
EMS.30 021674-R #@ CZRCD2 CZRCO3 
EMS.42 022044-R # CZRCD2 CZRCO3 
EMS.43 022132-R # CZRCO2 CZRCD3 
ENTRY. 066232-R @ CZRCD1 CZRC02 CZRCD3 
ENV.US 062262-R # CZRCD1 CZRC02 CZRCD3 
EOP.FL 066234-R # CZRCD1 CZRC02 CZRCD3 
ERRBLK 002134-R @ CZRCD1 

ERRMSG 002132-R # CZRCD1 











ERRNBR 002130-R 
ERRTYP 002126-R 
ETIME  010372-R 
EVL 000004 

EX.BB 007654-R 
Ex.6C 010012-R 
£X.6D0 010070-R 
EX.CBC 007744-R 
EX.CMD 007474-R 
EX.CMP 007636-R 
EX.CRN 007304-R 
EX.DSC 007400-R 
EX.EL O10150-R 
EX.ESP 007546-R 
EX.EVC 010262-R 
EX.FMT 0120242-R 
EX.HMA 010306-R 
EX.LSN 007720-R 


ee oeeeoeoeooooooooen oeosd 


CzRC01 
CZRC01 
CZRCO1 
cZRCO1 
CZRCD1 
CzRco1 
CZRCD1 
CZRCD1 
cZRCD1 
CZRCD1 
czRC01 
CZRC01 
czRco1 
czRCO1 
CZRCO1 
CzRCO1 
CZRCO1 
Czrco1 


CZRCD2 
@ CZRCD2 
CZRCD2 
CZRCO2 
CZRC02 
CzRC02 
CZRCO2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCO3 
CzRCD2 
CZRCD3 
CZRCO3 
CZRCD3 
CZRCD2 


(Rte em se i or er rR EEE EEE SEES EE RD A = ERD NEST 


@ CZRCO3 


CZRCD3 





SEQ 0040 








SE 
cz2rco CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 4 ed 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 


CzRC01 CZRCD2 
CZzRCcO1 CZRCD2 CZRCD3 
CZRCO1 CZRCD3 
czRcol CZRCD2 
CZRCO1 cZRCD2 
czRcol CzRcd2 CZRCD3 
czRcol CZRC02 
CZRCO1 CZRCD2 
CZRCD1 CZRCD2 
CZRCD1 CzRCD2 
cZzRCO1 CZRCO2 CZRCD3 
CzRCO2 CZRCD3 
CzRC02 CZRCD3 
CczRCD2 CZRCD3 
czRrcd2 

czrcd2 

czrcd2 

CczRCD2 

czRC02 

CzRCd2 

CZRCD2 

CzRCD2 

czRcd2 

CZRCD2 

CZRCD2 

czRCd2 

czRCcd2 

czRC02 

czRcd2 

CZRCD2 

CZRCD2 

CzRCD2 

CzRCD2 

czRcd2 


EX.ON. 007534-R 
Ex.03 010356-R 
EX.PA 010212-R 
EX.20 007616-R 
EX.SA 007256-R 
EX.SB 007440-R 
EX.SC 007342-R 
EX.SCC 007514-R 
EX.SND 007602-R 
EX.WRT 007626-R 
FREE.M 066276-R 
GET.EN 015412-R 
GET.I0 015720-R 
GET.RE 015576-R 
GPSDIS 011022-R 
GP $i 010626 -R 
GPSsi0 010750-R 
GP$il 010760-R 
GPSi2 910766-R 
GPSi3 011000-R 
GP$i4 011014-R 
GPSi5 011026-R 
GP$i6é 011034-R 
GPSi7 011044-R 
GPSi8 011054-R 
GP$i9 011064-R 
GP $2 010636 -R 
GPs20 6011102-R 
GPs21 011114-R 
GPs3 010646 -R 
GPs4 010660-R 
GP ss 010€72-R 
GP 86 010702-R 
GPs? 010716-R 


o22O00O%9SO%09O%O%9O E4000 046C60 C6008 


GP ss 010730-R 
GPs9 010742-R 
HARD.E 016502-R 
OE 190000 

HOURS  056314-R 
HWPT.B 010454-R 
HWPT.I 010450-R 
HWPT.P 010456-R 
HWPT.V 010452-R 





Se ee Ee te ee ee ee 


CczRC02 
CzRC02 
CZRCD2 
CZRCO1 
czRCD1 
CzRC01 
CzRCD1 
CZRCD1 
CZRCD1 
CzRC01 
CZRCO1 
czRC01 
CzRCc01 
CZRCD1 
CZRCO1 
CzRCD1 
CZRC01 
CzRCO1 


e2oo 


CZRCD3 
CzRCD2 
CzRC02 


CZRCD2 
CzRCd2 
CzRCd2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CczRcd2 
CzRCD2 


@ CZRCD3 
CZRCD3 


® CZRCO3 
& CZRCD3 
@ CZRCD3 





SEQ 0042 





SEQ 0043 
CZRCO CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 5 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 


IIP.FL 066236-R @ CZRCD1 CZRCD2 CZRCD3 


IN.I0D 016174-R #@ CZRCD2 CZRCD3 

I00Q 066166-R # CZRCD1 CZRCD2 CZRCD3 
I0DQ.I 066226-R #@ CZRCD1 CZRCD2 CZRCD3 
T00Q@.0 066230-R ¢ CZRCD1 CZRCD2 CZRCD3 
IRC25. 043164-R # CZRCD1 CZRCD2 CZRCD3 
ISR 000100 @ CZRCO1 # CZRCD2 # CZRCD3 
IXE 004000 # CZRCD1 ¢ CZRCD2 # CZRCD3 
LOE 040000 @ CZRCD1 # CZRCD2 # CZRCD3 
LOT 000010 @ CZRCD1 # CZRCD2 # CZRCD3 
L$ACP 002110-R #@ CZRCD1 

LSAPT 002036-R #@ CZRCD1 

LSAU 014736-R CZRCD1 # CZRCD2 

L$AUT 002070-R # CZRCD1 

L$AUTO 014044-R CZRCDi # CZRCD2 

LSCCP 002106-R # CZRCD1 

LSCLEA 014254-R CZRCD1 # CZRCD2 

L$Co 002032-R #@ CZRCD1 

L$DEPO 002011-R # CZRCD1 

L$DESC 010576-R CZRCD1 # CZRCD2 

L$DESP 0C2076-R # CZRCD1 

L$DEVP 002060-R # CZRCD1 

L$DISP 002124-R # CZRCD1 

L$SOLY 002116-R # CZRCD1 CZRCD2 CZRCD3 
L$OTP 002040-R # CZRCD1 

LSOTYP 002034-R # CZRCD1 

L$DU 014646-R CZRCD1 # CZRCD2 

L$DUT 002072-R # CZRCD1 

L$DVTY 010550-R CZRCD1 # CZRCD2 

LS€F 002052-R # CZRCD1 

LSENVI 002044-R #¢ CZRCD1 

LSERRT 002126-R # CZRCD1 

LSETP 002102-R # CZRCD1 

L$EXP1 002046-R # CZRCD1 

LSEXP4 002064-R # CZRCD1 





—<— 


LSEXPS 
LS$HARD 
LSHIME 
LSHPCP 
LSHPTP 
LSHRDOL 
LSHW 
LSHWLE 
LsIcP 
LSINIT 
L$LADP 
L$LAST 
L$LOAD 
L$LUN 
LSMREV 
LSNAME 
L$NDHR 


002066 -R 
010626-R 
002120-R 
002016-R 
002022-R 
010624 -R 
010450-R 
010446-R 
002104 -R 
014032-R 
002026 -R 
073252-R 
002100-R 
002074-R 
002050-R 
002000-R 
010712-R 





% 


% 
e 
% 
e 
¢ 
e 
¢ 
+ 
2 
¢ 
% 
+ 
# 


CZRCO1 
CZRCD1 
CZRCD1 
CzRCO1 
CZRCO1 
CZRCD2 
CZRCD1 
CzRCO1 
CZRCD1 
czRCD1 
CZRCD1 
CZRCO1 
CZRCO1 
CZRCD1 
CZRCO1 
CZRCD1 
CZRCD2 


# CZRCD2 
CZRCD3 


# CZRCD2 
# CZRCD4 
CzRCD2 


CZRCD3 


SEQ 0044 





SEQ 0045 


CZRCD CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 6 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 

LSNDHW 010460-R @ CZRCD1 

LSNDSF 011134-R #@ CZRCD2 

L$NDSW 010540-R #@ CZRCD1 

L$PRIO 002042-R #@ CZRCD1 

L$PROT 010542-R #@ CZRCD1 

L$PRT 002112-R #@ CZRCD1 

LSREPP 002062-R @ CZRCD1 

LSREV 002010-R #@ CZRCD1 

LSRPT 012236-R CZRCD1 # CZRCD2 

LSSFTL 010714-R # CZRCD2 

L$SOFT 010716-R CzZRCO1 # CZRCD2 

L$SPC 002056-R # CZRCD1 

L$SPCP 002020-R # CZRCD1 

L$SPTP 002024-R #@ CZRCD1 

L$STA 002030-R # CZRCD1 

L$SwW 010464-R # CZRCD1 

L$SWLE 010462-R # CZRCD1 

LSTEST 002114-R #@ CZRCD1 

L$TIML 002014-R # CZRCD1 

LSUNIT 002012-R # CZRCD1 CZRCD2 CZRCD3 
MEM.MG 066235-R # CZRCD1 CZRCD2 CZRCD3 
MEM.SI 066274-R # CZRCD1 CZRCD2 CZRCD3 
MINUTE 066316-R # CZRCD1 CZRCD2 CZRCD3 
MSCP.E 045462-R # CZRCD1 CZRCD2 CZRCD3 
MSG.01 003466-R # CZRCD1 CZRCD2 

MSG.02 003520-R # CZRCD1 CZRCD3 

MSG.03 003616-R # CZRCD1 CZRCD3 

MSG.04 003636-R # CZRCD1 CZRCD3 

MSG.05 003670-R # CZRCD1 CZRCO3 

MSG.06 003730-R # CZRCD1 CZRCD3 

MSG.07 003772-R # CZRCD1 CZRCD2 

MSG.08 004044-R # CZRCD1 CZRCD3 

NEX 066336-R # CZRCD1 CZRCD2 CZRCD3 
NEX.TR 014746-R # CZRCD2 CZRCD3 

NULL 003464-R # CZRCD1 

NUM.BU 066302-R # CZRCD1 CZRCD2 CZRCD3 











@ CZRCO1L 


zee oo oS 





CZRCD2 
CZRCO2 
CZRCD2 
CZRCD2 
CzRCD2 
CZRCO3 
CZRCD3 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 
CZRCD2 


S> 3> <> <> <> <> <> 


CZRCO3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 


CZRCD3 


CZRCO3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 
CZRCD3 


SEQ 0046 








SEQ 0047 


CZRCO CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 7 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 


PRIOS 000240 @ CZRCD1 # CZRCD2 # CZRCD3 
PRI06 000300 @ CZRCD1 # CZRCD2 # CZRCD3 
PRIO7 000340 @ CZRCD1 # CZRCD2 # CZRCD3 
PUTA.B 016074-R #@ CZRCD2 CZRCD3 

PUTA.E 015536-R # CZRCD2 

PUT.EN 015522-R CZRC02 CZRCD3 

PUT.IO 016010-R CZRCD2 CZRCD3 

PUT.RE 015704-R CZRCD2 CZRCD3 

QIo 066270-R CZRCO1 CZRCD2 CZRCD3 
RCINTO 037326-R 
RCINT1 037344-R 
RCINT2 037364-R 
RCINT3 037404-R 
RC25.A 043162-R 
RETPKT 062422-R 
RPS.X1 043550-R 
RPS.X2 043552-R 
RP.ADD 065464-R 


e 

+ 

7 

e 

f 

% 

o 

¢ 

# CZRCD1 CZRCD2 CZRCD3 
# CZRCD1 CZRCO2 CZRCD3 
# CZRCD1 CZRCD2 CZRCD3 
# CZRCD1 CZRCD2 CZRCD3 
# CZRCD1 CZRCD2 CZRCD3 
RP.IND 065462-R # CZRCD1 CZRCD2 CZRCD3 
RP.SAV 043510-R # CZRCD1 CZRCD2 CZRCD3 
RP.USE 065422-R # CZRCD1 CZRCD2 CZRCD3 
SA.REG 066334-R # CZRCD1 CZRCD2 CZRCD3 
SB.COD 066326-R # CZRCD1 CZRC02 CZRCD3 
SECOND 066320-R # CZRCD1 CZRCD2 CZRCD3 
SEND 017126-R # CZRCD2 CZRCD3 

SET.CP 015120-R # CZRCD2 CZRCD3 
SET.UP 015314-R # CZRCD2 CZRCD3 
SFPTBL 010464-R # CZRCD1 
STC.00 006542-R # CZRCD1 CZRCD3 
STC.01 006556-R #@ CZRCD1 CZRCD3 
STC.02 006602-R # CZRCD1 CZRCD3 
STC.03 006626-R # CZRCD1 CZRCD3 
STC.04 006650-R # CZRCD1 CZRCD3 
STC.05 006674-R # CZRCD1 CZRCD3 
STC.06 006724-R # CZRCD1 CZRCD3 
STC.07 006750-R # CZRCD1 CZRCD3 
STC.08 007002-R # CZRCD1 CZRCD3 








SEQ 0048 
007022-R # CZRCD1 CZRCD3 
007060-R #@ CZRCD1 CZRCD3 
007106-R @ CZRCD1 CZRCD3 
066330-R # CZRCD1 CZRCD2 CZRCD3 
056324-R @ CZRCD1 CZRCD2 CZRCD3 
003370-R # CZRCD1 CZRC02 
010475-R # CZRCD1 CZRCO3 
010464-R @ CZRCD1 CZRCD2 
010472-R # CZRCD1 CZRCD2 CZRCD3 
010474-R #@ CZRCD1 CZRC02 CZRCD3 
010470-R # CZRCD1 CZRCD2 CZRCD3 
010476-R # CZRCD1 CZRCO3 
010500-R # CZRCD1 CZRCD3 
010466-R # CZRCD1 CZRCD2 


002414-R # CZRCD1 CZRCD2 








SEQ 0049 


CZRCO CREATED BY TKB ON 14-JUN-85 AT 09:50 PAGE 8 
GLOBAL CROSS REFERENCE CREF vO1 
SYMBOL VALUE REFERENCES... 


SWQ10 003024-R #@ CZRCD1 CZRCO2 
SWQ11 003100-R @ CZRCD1 CZRCD2 
SWQ12 003144-R #@ CZRCD1 CzRCD2 
SWQ13. 003176-R #@ CZRCD1 CZRCD2 
SWQ14 003274-R # CZRCD1 CZRCD2 
SWQ15 003352-R #@ CZRCD1 CZRCD2 
SWQ2 002452-R #@ CZRCD1 CZRCD2 
SWQ3 002530-R #@ CZRCD1 CZRCD2 
SWQ4 002576-R # CZRCD1 CzRC02 
SwQ5 002656-R # CZRCD1 CZRCD2 
SWQ6 002700-R # CZRCD1 czrcd2 
# CZRCD1 CZRCD2 
# CZRCD1 CZRCD2 
SWQ9 003010-R # CZRCD1 CZRCD2 
# CZRCD1 CZRC02 CZRCD3 
# CZRCD1 CzRCD2 CZRCD3 
# CZRCD4 
CZRCD1 # CZRCD4 
# CZRCD1 CZRCD2 CZRCD3 
# CZRCD1 CZRCD2 CZRCD3 
CZRCD1 # CZRCD3 
# CZRCD1 # CZRCD2 # CZRCD3 
# CZRCD2 CZRCD3 
# CZRCD2 CZRCD3 
# CZRCD2 CZRCD3 
# CZRCD4 
B1I6MUL # B16SAV CZRCD2 CZRCD3 
$SAVE3 042334-R # BI6SAV CZRCD2 CZRCD3 
$SAVE4 042352-R # BI6SAV CZRCD2 CZRCD3 
$SAVES 042372-R Bi6MUL # B16SAV CZRCD2 CZRCD3 


T.FLAG 0€6233-R 
T1 022420-R 
UAM 000200 

UPD.IO0 016572-R 
WAIT 017372-R 
XFR.CH 016734-R 
$END.L 073304-R 
$SAVE2 042320-R 





LITERAL 
' 


$eeeeee 
a 


'eeeeee 
7 


’ 
§'eee086 
a 











$RSESEEAESEEEEEESAESASAERAEAEAAEEAEAEEAEEEEESEREAESASSEAEAAEAREREREAEEAREEEEEERE 


LITERALS 


& 
* 
* 


SeeRESEEEEEAEAEEASEASAEASEEE RS EAREAEEAEAREALAAEAAEEEEEAAEREREREEERERESEEERERERE 


MAXIMUM NUMBER OF RC25 CONTROLLERS ALLOWED 
MAXIMUM NUMBER OF UNITS TO TEST 

LARGEST TRACK NUMBER IN HOST AREA 

LARGEST HOST SECTOR NUMBER IN EACH TRACK 
NUMBER OF HOST SECTORS PER TRACK 

NUMBER OF BYTES PER SECTOR 


LOG2 LENGTH OF COMMAND RING 
LOG2 LENGTH OF RESPONSE RING 
COMMAND RING LENGTH 
RESPONSE RING LENGTH 


om te te ce 


! SIZE (WORDS) OF HW P-TABLE 


4, 
CRRING_LEN * 2) + (CRING_LEN # 2) + 4, ! SIZE (WORDS) OF U/Q PORT COMM AREA FOR ONE CTLR 
' 


MAX_CTLR * RRING_LEN, 


26, 
a * RRING_LEN, 


SIZE (WORDS) OF A CONTROLLER STATUS TABLE 

SIZE (WORDS) OF A UNIT‘S STATISTICS TABLE 

SIZE (WORDS) OF A RETURN PACKET 

SIZE (BYTES) OF A CONTROLLER'S RETPKT SAVE AREA 
! NUMBER OF ENTRIES IN I/0 DONE QUEUE (I0DQ) 

SIZE (WORDS) OF AN MSCP MESSAGE (TEXT PORTION) 
SIZE (WORDS) OF AN MSCP ENVELOPE 

SIZE (WORDS) OF A DRIVER CONTROLLER TABLE 

SIZE (WORDS) OF A UNIT‘'S BLOCK SEQ TABLE ENTRY 
SIZE (WORDS) OF THE RANDOM NUMBER TABLE 

SIZE (WORDS) OF AN I/0 BUFFER DESCRIPTOR 

SIZE (WORDS) OF DM_COMM AREA FOR ONE CONTROLLER 
NUMBER OF RETURN PACKETS IN POOL 

MAX SIZE (WORDS) OF USER DATA PATTERN 


(CRING_LEN # 2) * MAX_CTLR, ! MAX NO. OF I/O BUFFERS (SIZE OF BUFF_DESC AND BUFF _OWN) 
(CCRING_LEN * 2) + RRING_LEN) # MAX_CTLR, ! NO. OF MSCP ENVELOPES IN POOL 


!eeeees HARDWARE LIMITS AND PARAMETERS 
t 
MAX_CTLR = 4, 
MAX_UNITS = MAX_CTLR « 4, 
MAX_ TRACK = 1641, 
MAX_SECT = 30, 
SEC_PER_TRK = 31, 
BLK_SIZE = 512, 
U/Q PORT RING SIZES 
CR_LOG = 3, 
RR_LOG = 3, 
CRING_LEN = 1 t CR_LOG, 
RRING_LEN = 1 t RR_LOG, 
TABLE AND OTHER STRUCTURE SIZES 
HWPT_LEN . 
COMM_LEN : 
CST_LEN =7, 
TALLY_LEN = 24, 
RP_LEN = 24, 
RPS_LEN = CRING_LEN, 
100@_LEN . 
MSG_CEN = 30, 
ENV_LEN = MSG_LEN + 4, 
DCT_LEN = 9, 
BST_LEN = 2, 
RDM_LEN = 16, 
DESC _LEN = 2, 
DMC_LEN . 
RP _CNT . 
MAX_UDP_CNT . 
MAX_BUF _CNT . 
ENV_CNT . 
OUTC_CNT = CRING_LEN « 2, 
DP _CNT = 21, 
OFFSETS 
OF _UN = 3, 


! NUMBER OF ENTRIES IN A CONTROLLER'S OUTSTANDING CMD LIST 
! NUMBER OF PRE-DEFINED DATA PATTERNS 


! WORD OFFSET FROM START OF CST TO FIRST UNIT 








SEQ 0051 


eeeees SW P-TABLE FLAGS (SWP_FLAGS) 
t 


SWF _SEL = 60'1', ! SUPPRESS PRINTING ERROR LOG MESSAGES 
SWF _DM = 60'2', ! RUN OM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST 
SWF _ROM = 60'4', ! RANDOM SEEK MODE 
SWF _CRC = 60'10', ! READ-COMPARES AT CONTROLLER 
SWF _WO = #60'20', ! WRITE ONLY 
SWF _CWC = 60'40', ! WRITE-COMPARES AT CONTROLLER 
SWF _HWC = 60'100', ! WRITE-COMPARES AT HOST 
SWF _UDP = #60'200', $ USER-DEFINED DATA PATTERN 
. SWF _PHWC = £0'6', ! HOST WRITE COMPARES (BIT POSITION) 
leseees ENTRY_REASON VALUES CHOW CURRENT PASS WAS INVOKED) 
7 
START = 1, $ START 
RESTART = 2, ! RESTART 
CONT = 3, § CONTINUE 
PWR_FAIL = 4, ! POWER FAIL 
NEW_PASS = 5, ' NEW PASS 
a 
!eeeeee DROP UNIT REASONS (LOADED INTO DUR VECTOR) 
J 
DU_USER = 0, ! USER COMMAND 
_CONF = 1, ! CONFIGURATION ERROR 
DU_INIT = 2, ! INITIALIZATION ERROR 
DU_HERR s 3, ' HARD ERROR LIMIT REACHED ’ 
DU_FATAL = 4, !' UNRECOVERABLE DEVICE ERROR 
t 
$aeeeee TIMEOUT VALUES CIN SECONDS) 
7 
TO_INIT = 120, ! INIT SUBTEST COMMANDS 
TO_CUP = 30, ! DUP COMMANDS 
TO_1I9 = 300, ! I/0 TRANSFER COMMANDS 
TO_OM = 360, ! ONE FPT PASS (DM EXERCISER SUBTEST) 
a 
$#seee% MISCELLANEOUS LITERALS 
t 
INI_ATY = 2, ! NUMBER OF HARD INIT ATTEMPTS BEFORE FAILURE IS ASSUMED 
WR_RING = ((#0'200') OR (CR_LOG t 3) OR (RR_LOG)), ! USED IN HARD INIT SEQUENCE 
QIO_PER_CTLR = CRING_LEN « 2, ! MAXIMUM NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
4 
!eaeees MSCP ENVELOPE DESCRIPTOR 
' 
ED_OWN = #0'100000', ! OWNERSHIP BIT 
J 
taeeeee CONNECTION ID VALUES (MSCP_ENV, RETPKT) 
H (SERVE AS SOURCES AND DESTINATIONS OF MSCP MESSAGES) 
' 
CIO_DISK = 0, ! DISK MSCP 
H * CID_ TAPE = 1, ! TAPE MSCP 
CID_DuP = 2, ! DIAGNOSTIC AND UTILITIES PROTOCOL 
CID_DRIVER = 3, ! EXERCISER “DRIVER” 








SEQ 0052 





!eeeees MESSAGE TYPE VALUES 
' 


MT_SEQ = 0, ! SEQUENTIAL (FROM PORT) 
MT _DG = 1, ! DATAGRAM (FROM PORT) 
' MT CRD = 2, ! CREDIT NOTIFICATION (FROM PORT) 
MT FATAL = 3, ! FATAL DEVICE ERROR (FROM “DRIVER”) 
; MT_ TIMEOUT = 4, ! COMMAND TIMEOUT (FROM “DRIVER") 
!eeeeee MSCP COMMAND PACKET OPCODES 
' 
oP _scc = 60'4', ! SET CONTROLLER CHARACTERISTICS COMMAND 
OP “ONL = #0'11' ! ONLINE COMMAND 
OP ACC = #0'20', ! ACCESS COMMAND 
OP "RD = #0'41', ! READ COMMAND 
OP “WRT = 60'42', ! WRITE COMMAND 
OP “MSK = #0'177', ! OPCODE MASK 
OP “END * #0'200', ! ENDCODE DESIGNATOR 
{eesens DUP COMMAND OPCODES 
j OP _ESP = 60'2', ! EXECUTE SUPPLIED PROGRAM 
OP —SND = 60'4'. ! SEND DATA 
7 
eases MSCP COMMAND MODIFIERS 
t 
MD _EXP = #0'%00000', ! EXPRESS REQUEST 
MD _CMP = #0'40000', ! COMPARE 
7 
!aeeeee MSCP ERROR LOG MESSAGES - FORMAT FIELD CODES 
J 
FM_CNT = 0, ! CONTROLLER ERROR 
FM_BAD = 1, ! HOST MEMORY ACCESS ERROR 
FM_SDE = 4. ! SMALL DISK ERROR 
| 
!#aesae CONTROLLER FLAGS CIN SET CONTROLLER CHARACTERISTICS COMMAND) 
i CF _MSC = #0'100', ! ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
CF ~THS = #0'20', ! ENABLE THIS HOST’S ERROR LOG MESSAGES 
!#eeeee UNIT FLAGS CIN ONLINE RESPONSE) 
J 
UF _WPH = #0'20000', ! WRITE PROTECT (HARDWARE) 
1 
!easeee STATUS / EVENT CODE DEFINITIONS 
7 
ST_SUC = #0'0', ! SUCCESS 
ST~OFL = 60'3! ! UNIT OFFLINE 
ST “DAT = #0'10° ! DATA ERROR 
a 
!eeseee END MESSAGE FLAGS 
J 
EF _BBR = #0'200', ! BAD BLOCK REPORTED 
teeeees RC25 LITERALS 
Q ’ 
RCIP = 0, ! IP REGISTER 
RCSA = 1, ! SA REGISTER 





Pape 








SA_S1 = 60'004000', ! STEP 1 STATUS BIT 
SA_S2 = #0'010000', : - | 
$4_S3 = €0'020000', $ : 3 
SA_S4 = €0'040000', ' v 4 
SA_ERR = #0'100000', ! ERROR INDICATOR 
SA_INT = €0'000200', ! INTERRUPT ENABLE DURING INITIALIZATION 
SA_GO = #0'000001', ! GO BIT TO START FIRMWARE 
7 
2 INITIALIZATION SEQUENCE READ MASKS 
S1_MASK = #0'176000', ! STEP 1 READ BITS 
$2 _MASK = 60'174577', ’ rs ¢€ 
$3_MASK = 60'174377', : : 3 
S4_MASK = 60'174000', ! ov 4 
a 
teaeeea MEMORY MANAGEMENT (KT-11) REGISTER LOCATIONS 
J 
KTPDRO = 60'172300', ! PAGE DESCRIPTOR REGISTERS 
KTPDR1 = €0'172302', 
KTPDR2 = €0'172304', 
KTPDR3 = €0'172306', 
KTPDR4S = €0'172310', 
KTPDRS = 60'172312', 
KTPDR6E = €0'172314', 
KTPDR7 = 60'172316', 
KTPARO = €0'172340', ! PAGE ADDRESS REGISTERS 
KTPARL = 60'172342', 
KTPAR2 = 60'172344', 
KTPARS = 60'172346', 
KTPAR4 = #0'172350', 
KTPARS = €0'172352', 
KTPAR6 = 60'172354', 
KTPAR7T = 60'172356', 
“MRO = 60'177572', ! MEMORY MANAGEMENT REGISTER 0 
MMRS = #0'172516', ! MEMORY MANAGEMENT REGISTER 3 


NOT_PRESENT 
UNPROTECTED 
PROTECTED 
ONi INE 
OFFLINE 

ALL _ONES 


é 
z 


NO_CLOCK 
L_CLOCK 
P_CLOCK 


a 
Seseeee CLOCK FLAGS FOR CLK_TYPE 


Recados 


@eeeae LITERALS FOR READABILITY 


PLATTER IS PRESENT IN CONTROLLER 
PLATTER IS NOT PRESENT IN CONTROLLER 
PLATTER HAS UNPROTECTED CUSTOMER LBN'S 
QO, ! PLATTER HAS PROTECTED CUSTOMER LBN‘S 


o 


#0'177777', 


« § 
1; 





SEQ 0053 


- ce a a RE 8 SESE EES RSE SR a nO RR EE SS a RR SR RR A RE Re 
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FIELOS 


PEPE TEEPE ETEEreririvirireririririririririrririritisitititititiiittTiititi ty 


’ 
FIELD 
: 


teeeses HARDWARE P-TABLE FIELDS 
a 


HWP_FIELDS = 
SET 


HWP _BR_LEVEL 
HWP _PLAT 

HWP _PLAT_ADDR 
HWP _PLAT_CP 
TES, 


0, 16, 0}, 
0, 16, 0), 
0, 16, 0}, 
0, 16, 0). 
0, 8, 0), 
15, 1, 0) 


7 
teeeees U/Q PORT COMMUNICATION AREA HEADER FIELDS 
J 


COM_FIELDS = 


J 
teeeees CONTROLLER STATUS TABLE (CST) FIELDS 
e 


C_FIELDS = 
SET 


IP _ADOR 
VEC_ADOR 
STATE 
BP _LEV 
U_CNT 


PL_ALL 

P1_ADDR 
P1_UNIT 
P1_STAT 
P1_PRES 
P1_PROT 


P2_ALL 

P2_ADDR 
P2_UNIT 
P2_STAT 
P2 PRES 
P2 PROT 


seat a i, Let 


1 
2 
3 


Ce eee ae Lame Looe Lee I aoe Lae Lae Lae Lae | 
AWUAWUWwW Ohrro 


8. 8. 0}, 


Oo. 16. Oj, 
o, 8 Oo}, 
8, 5, 0), 
13, 1, 0), 
14, 1, 0), 
15, 1, 0) 


THE REMAINING C_FIELDS ARE NOT REFERENCED 
AND MACROS. THE FIELDS ARE DEFINED HERE ONLY FOR DOCUMENTATION PURPOSES. 


IP ADDRESS 

VECTOR ADDRESS 

BUS REQUEST LEVEL 

PLATTER CALL FIELDS) 

PLATTER ADDRESS (MSCP UNIT NO. ) 
PROTECT CUSTOMER DATA BIT 


ADAPTER CHANNEL NUMBER FOR PURGES 
COMMAND RING INTERRUPT 
RESPONSE RING INTERRUPT 


IP AODRESS 

VECTOR ADDRESS 
CONTROLLER STATUS 
BUS REQUEST LEVEL 


NUMBER OF TESTABLE UNITS UNDER THIS CONTROLLER 


1ST PLATTER CALL FIELDS) 


1ST PLATTER ADDRESS (MSCP UNIT NO. ) 
1ST PLATTER UNIT NUMBER (ORS UNIT NO. ) 


1ST PLATTER STATUS BIT 
1ST PLATTER PRESENT BIT 


1ST PLATTER PROTECT CUSTOMER DATA BIT 


DIRECTLY, BUT RATHER WITH OFFSETS 


2ND PLATTER CALL FIELDS) 


2ND PLATTER ADDRESS (MSCP UNIT NO. ) 
2ND PLATTER UNIT NUMBER (DRS UNIT NO.) 


2ND PLATTER STATUS BIT 
2ND PLATTER PRESENT BIT 


2ND PLATTER PROTECT CUSTOMER DATA BIT 


SEQ 0054 





teacece MSCP ENVE 
a 





P3_ALL 

P3_ADOR 
P3_UNIT 
P3_STAT 
P3_PRES 
P3_PROT 


P4_ALL 
P4_ADDR 
P4_UNIT 
P4_STAT 
P4_PRES 
P4_PROT 
TES, 


2 

: 

E_FIELDS = 
SET 





DAOANS VUMUWUM 
.* . 7 a . *. 


LOPE FIELDS 
(NOTE: THE FIRST TWO WORDS OF AN MSCP ENVELOPE (ITS BASE 


o 
Ulm Ue « 2 
UIi@r 


oo hlUFPe.@ 
= = 
VIi@r 


oo o 
ooowwdo cool 


ee St ote ele 
o 


re 
Ul & we 


3RD PLATTER (ALL FIELDS) 

3RD PLATTER ADDRESS (MSCP UNIT NO. ) 
3RD PLATTER UNIT NUMBER (ORS UNIT NO.) 
SRO PLATTER STATUS BIT 

3RD PLATTER PRESENT BIT 

3RD PLATTER PROTECT CUSTOMER DATA BIT 


4TH PLATTER CALL FIELDS) 

4TH PLATTER ADORESS (MSCP UNIT NO.) 
4TH PLATTER UNIT NUMBER (DRS UNIT NO.) 
4TH PLATTER STATUS BIT 

4TH PLATTER PRESENT BIT 

4TH PLATTER PROTECT CUSTOMER DATA BIT 


ADDRESS) CONTAIN THE ENVELOPE’S OWN DESCRIPTOR, RATHER THAN THE 
MESSAGE BODY (TEXT + 0). THE MESSAGE BODY BEGINS AT WORD 4. 


HEADER FIELDS 


ENVELOPE DESCRIPTOR (LO ORDER) 

ENVELOPE DESCRIPTOR (HI ORDER - ALL FIELDS) 
ENVELOPE DESCRIPTOR (HI ORDER UNIBUS BITS) 
ENVELOPE DESCRIPTOR (HI ORDER Q-8US BITS) 
ENVELOPE DESCRIPTOR FLAG BIT 

ENVELOPE DESCRIPTOR OWNERSHIP BIT 

MESSAGE LENGTH 

CREDITS 

MESSAGE TYPE 

CONNECTION ID 


COMMAND REF NUMBER (LO ORDER) 
COMMAND REF NUMBER (HI ORDER) 
PLATTER ADDRESS (MSCP UNIT NUMBER) 
OPCODE AND ENDCODE 

COMMAND MODIFIERS 


READ, WRITE, AND ACCESS COMMAND FIELDS (FOR COMMAND AND END PACKETS) 


EXV_LO = (0, 0, 16, OJ, 
ENV_HI = (1, 0, 16, 0], 
ENV_U eth, G. 2s Os 
ENV_Q th, 2, & Oia 
ENV_F = (1, 14, 1, 0}, 
ENV_O *{i. 1S, 1, 6}. 
MSGLEN * {2,. 6. 16, 0). 
CREDITS >» (3, 6, 4, 0). 
MSGTYP = (3, 4, 4, 0), 
CONNID * (3, 8, 6. 6). 
GENERIC COMMAND PACKET AND END PACKET FILEDS 
CRN_LO = (4, 0, 16, 0], 
CRN_HI = (5, 0, 16, 0), 
PL_ADDR = (6, 0, 16, 9), 
OPCODE = (8, 0, 8, 0), 
MODIFY = (9, 0, 16, 0), 
BC_LO = [10, 0, 16, 0}, 
BC _HI = (11, 0, 16, 0], 
BUF _O = (12, 0, 16, 0), 
BUF _1 = (13, 0, 16, 0], 
BUF _2 = (14, 0, 16, 0), 
BUF _3 = (15, 0, 16, 0}, 
BUF _4 s [16, QO, 16, 0), 
BUF_5S s {17, . 16, 0), 
LBN_L = (18, 0, 16, 0], 
LBN_H . {19, - 16, 0), 





BYTE COUNT (LO ORDER, 
BYTE COUNT (HI ORDER) 
I/0 BUFFER DESCRIPTOR 


LOGICAL BLOCK NUMBER (LO ORDER) 
LOGICAL BLOCK NUMBER (HI ORDER) 


SE@ 9055 











SEQ 0056 
? SET CONTROLLER CHARACTERISTICS COMMAND FIELDS 
s 


C_FLAGS * [11, 0, 16, 0), ! CONTROLLER FLAGS 
J 
2 ONLINE COMMAND FIELDS 
' 
DDPAR = (18, 0, 16, 0), ! DEVICE -DEPENDENT PARAMETERS 
J 
! DUP COMMAND FIELDS 
a 
DBC_LO = (10, 0, 16, 0), ! BYTE COUNT (LO ORDER) 
DBC_HI = (11, 0, 16, 0], ! BYTE COUNT CHI ORDER) 
DBUF _O = (12, 0, 16, 0], ! BUFFER DESCRIPTOR 
? DBUF _i = (13, 0, 16, 0), : 
: DBUF _2 = (14, 0, 16, 0], 4 
2 DBUF _3 = (15, 0, 16, 0), 2 
g DBUF _4 = (16, 0, 16, 0], : 
2 DBUF _S = (17, 0, 16, 0), : 
OBUF _O = (18, 0, 16, 0], ! OVERLAY BUFFER DESCRIPTOR 
: OBUF _1 = (19, 0, 16, 0}, : 
4 OBUF _2 = (20, 0, 16, 0], : 
2 OBUF _3 = (21, 0, 16, 0], H 
: OBUF _4 = (22, 0, 16, 0), g 
: OBUF _S = (23, 0, 16, 0], : 
7 
e ERROR LOG MESSAGE FIELDS 
a 
FORMAT = (8, 0, 8, 0), ! FORMAT 
EVENT = (9, 0, 5, 0], ! EVENT CODE 
suBc = {9, 5. il, 0), g SUB -CODE 
MA_LO = (16, 0, 16, 0), ! HOST MEMORY ADDRESS (LO ORDER) 
—_ = [17, 0, 16, 0) ! HOST MEMORY ADDRESS CHI ORDER) 
ES, 


'eaeeee RETURN PACKET (RETPKT) FIELDS 
' (SIMILAR, BUT NOT IDENTICAL, TO MSCP ENVELOPE FIELDS) 


RP_FIELDS = 
SET 


' COMMON TO ALL RETURN PACKETS FROM DISK MSCP 
t 


MESLEN = (0, 0, 16, 0], ! MESSAGE LENGTH 

CTLR = (1, 0, 4, ‘ ! CONTROLLER NUMBER (CREDITS OVERWRITTEN) 
MEST YP = (1, 4, 4, 0), ! MESSAGE TYPE 

CONID = (1, 8 8, 0), ! CONNECTION ID 

CR*_LO = (2, 0, 16, 0], ! COMMAND REFERENCE NUMSER (LO ORDER) 
CRF _HI = (3, 0, 16, . ! COMMAND REFERENCE NUMBER (HI ORDER) 
PLAT = (4, 0, 16, OJ, ! PLATTER ADDRESS (MSCP UNIT NUMBER) 
CMDOMOD = (5, 0, 16, ’ ! COMMAND MODIFIERS 

ENODCOD = (6, 0, 8, 0}, ! END CODE 

FLAGS = (6, 8 8, 0], ! FLAGS 

STATUS = (7, 0, 16, 0), ! STATUS AND SUB-CODE 

STSCOD = (7, 0. 5, 9], ! STATUS CODE 

SUBCOD = (7, 5, 11, 0), ! SUB-CODE 











READ, WRITE, AND ACCESS COMMAND RETURN PACKETS 


BCNT_LO = (8, Oo, 16, 0), 

BONT_HI = (9, 0, 16, 0], 

BUFF _O = (10, 0, 16, 0], 
BUFF _1 = (11, 0, 16, OJ, 
BUFF _2 = (12, 0, 16, 0), 
BUFF _3 *« (15, 0, 16, 0), 
BUFF _4 = (14, 0, 16, 0], 
BUFF _5 = (15, 0, 16, OJ, 
BBLK_LO = (16, 0. 16, 9]. 
BBLK_HI = (17, 0, 16, 0), 
CBCNT_LO = (18, 0, 16, 0], 
CBCNT_HI = [19, 0, 16, 0], 
LBN_LO = (20, 0, 16, 0], 
LBN_HI = (21, 0, 16, OJ], 

UNIT ONLINE RETURN PACKET 

U_FLGS = (9, 0, 16, OJ, 

USIZ_LO = (20, 0, 16, 0], 
USIZ_HI = (21, 0, 16, 0) 

TES, 


teaeaee STATISTICS TABLE (TALLY) FIELDS 
 ] 


T_FIELDS = 
SE 


T 

READ_LO = [0, 0, 16, 0], 
READ_HI ={1, 0, 16. 0}. 

WRIT_LO = (2, 0, 16, 0], 

WRIT_HI = (3, 0, 16, 0]. 

SEEK_LO = (4, 0, 16, 0], 

SEEK _HI = (S, 0, 16, 0], 
BR_LO = (6, 0, 16, 0), 
BR_HI = (7, 0, 16, 0), 
MB_READ *{8, 0, 86, 9}. 

BW_LO * [9, ©, 16, 0], 

BuW_HI - [10, 0, 16, 0], 
MB_WRIT = (11, 0, 16, OJ, 
ER_HRD = (12, 0, 16, OJ, 
ER_LOG » (13, 0, 16, 0), 
ER_SFT = (14, 0, 16, OJ, 
ECC_1 = (15, 0, 16, 0). 
ECC_2 = (16, 0, 16, 0], 
ECC_3 = (17, 0, 16, 0), 
ECC_4 sad (18, oO, 16, oj, 
ecc.$ = 119, 0. 16. 0). 
ECC_6 = (20, 0, 16, 0], 
cCC_7 = (21, 0, 16, 0), 
cc_8 = (22, 0, 16, OJ, 
ECC_ONLY = (23, 0, 16, 0} 

TES, 


BYTE COUNT (LO ORDER) 
BYTE COUNT CHI ORDER) 
I/0 BUFFER DESCRIPTOR 


FIRST BAD BLOCK (LO ORDER) 

FIRST BAD BLOCK CHI ORDER) 

BYTE COUNT FROM CMD PACKET (LO ORDER) 
BYTE COUNT FROM CMD PACKET CHI ORDER) 
LOGICAL BLOCK NUMBER (LO ORDER) 
LOGICAL BLOCK NUMBER (HI ORDER) 


UNIT FLAGS 
UNIT SIZE (LO ORDER) 
UNIT SIZE CHI ORDER) 


NUMBER OF READS (LO ORDER) 
NUMBER OF READS CHI ORDER) 
NUMBER OF WRITES (LO ORDER) 
NUMBER OF WRITES CHI ORDER) 


NUMBER OF DM EXERCISER SEEKS (LO ORDER) 
NUMBER OF DM EXERCISER SEEKS (HI ORDER) 


NUMBER OF BYTES READ (LO ORDER 1000) 
NUMBER OF BYTES READ CHI ORDER 1000) 
MEGABYTES READ 


NUMBER OF BYTES WRITTEN (LO ORDER 1000) 
NUMBER OF BYTES WRITTEN CHI ORDER 1000) 


MEGABYTES WRITTEN 

NUMBER OF HARD ERRORS 

NUMBER OF ERROR LOG MESSAGES 
NUMBER OF DM SOFT ERRORS 
NUMBER OF 1-SYMBOL ECC ERRORS 
NUMBER OF 2-SYMBOL ECC ERRORS 
NUMBER OF 3-SYMBOL ECC ERRORS 
NUMBER OF 4-SYMBOL ECC ERRORS 
NUMBER OF 5-SYMBOL ECC ERRORS 
NUMBER OF 6-SYMBOL ECC ERRORS 
NUMBER OF 7-SYMBOL ECC ERRORS 
NUMBER OF 8-SYMBOL ECC ERRORS 
ECC-FIELD-ONLY ERRORS 





SEQ 0057 








SEQ 0058 


teeeeee DRIVER CONTROLLER TABLE (DCT) FIELDS 
, 
DC_FIELDS = 

SET 


WORDO = (0, 0, 16, 0], ' ALL FIELDS IN WORD 0 
CRING_CNT = (0, 0, 8, ° ! NUMBER OF SLOTS IN CRING NOT YET RETURNED TO HOST 
IG_INT = (0, 14, 1, ’ ' IGNORE INTERRUPT BIT 
STAT * (6, 33. 1. 0]. ' ONLINE / OFFLINE STATUS 
SA_SAVE = [1, 0, 16, OJ, ! SA REGISTER SAVE WORD 
RR_BEG = (2, 0, 16, 0), ! FIXED ADDRESSES OF START AND 
RR_END = (3, 0, 16, 0], H END OF EACH RING 
CR_BEG ” (4, oe 16, Je : : 
CR_END *{5, 0, 16, 0]. H V 
RR_POLL = (6, 0, 16, 0], ! ADDR OF NEXT RRING SLOT TO BE POLLED 
CR_POLL = (7, 0, 16, 0), ' ADDR OF NEXT CRING SLOT TO BE POLLED 
— = (8, 0, 16, 0) ! ADDR OF NEXT AVAIL CRING SLOT 
J 
taaeaae DM EXERCISER COMMUNICATION AREA (DM_COMM) FIELDS 
| 
pies <2 
FPT_ACC = (24, 0, 16, 0), ! FRONT PANEL TEST ACCESS WORD 
HOST_ACC = (25, 0, 16, 0) ! HOST ACCESS WORD 


THE REMAINING DMC_FIELDS ARE REFERENCED BY ADDRESS POINTERS. THE FIELDS 
ARE DEFINED HERE ONLY FOR DOCUMENTATION PURPOSES. 


a 

' 

! 

! 

' DM_P1 = (0, 0, 16, 0}, ! PLATTER ADDRESSES (UNIT PLUG 

' DM_P2 = [1, 0, 16, 0], ! NUMBERS) OF DISKS TO BE 

! DM_P3 = (2, 0, 16, 0], ! DM-EXERCISED 

! DM_P4 = (3, 0, 16, 0], ! 

I] 

‘ P1_SEEKS = (4, 0, 16, 0], ! 1ST PLATTER - NO. OF SEEKS 

' P1_READS = (5, 0, 16, 0], ! 1ST PLATTER - NO. OF READS 

‘ P1_WRITES = (6, 0, 16, OJ, ! 1ST PLATTER - NO. OF WRITES 

! P1_SOFT = (7, 0, 16, 0], ! 1ST PLATTER - NO. OF SOFT ERRORS 

! P1_HARD = (8, 0, 16, 0], ! 1ST PLATTER - NO. OF HARD ERRORS 

] 

: P2_SEEKS = (9, 0, 16, 0], ! 2ND PLATTER - NO. OF SEEKS 

' P2_READS = (10, 0, 16, 0), ! 2ND PLATTER - NO. OF READS 

! P2_WRITES = (11, 0, 16, 0], ! 2ND PLATTER - NO. OF WRITES 

! P2_SOFT = (12, 0, 16, 0], ! 2ND PLATTER - NO. OF SOFT ERRORS 

! P2_HARD = (13, 0, 16, 0), ! 2ND PLATTER - NO. OF HARD ERRORS 

] 

! P3_SEEKS = (14, 0, 16, 0), ! 3RD PLATTER - NO. OF SEEKS 

' P3_READS = (15, 0, 16, 0], ! 3RD PLATTER - NO. OF READS 

' P3_WRITES = (16, 0, 16, 0), ! 3RD PLATTER - NO. OF WRITES 

! P3_SOFT = (17, 0, 16, 0], ! 3RD PLATTER - NO. OF SOFT ERRORS 

' P3_HARD = (18, 0, 16, 0), ! 3RD PLATTER - NO. OF HARD ERRORS 

J 

' P4_SEEKS = (19, 0, 16, 0}, ! 4TH PLATTER - NO. OF SEEKS 

' P4_READS = [20, 0, 16, 0], ! 4TH PLATTER - NO. OF READS 

' P4_WRITES = (21, 0, 16, 0), ! 4TH PLATTER - NO. OF WRITES 

! P4_SOFT = (22, 0, 16, 0), ! 4TH PLATTER - NO. OF SOFT ERRORS 

' pa “HARD = (23, 0, 16, 0] ! 4TH PLATTER - NO. OF HARD ERRORS 
eS, 








faeeeee BLOCK SEQUENCE TABLE (BST) FIELDS 
s 
B_FIELDS = 

SET 


SECTOR = (0, 0, 16, 0], ! SECTOR 
TRACK = (1, 0, 16, 0) ! TRACK 


!eeeeee I/0 BUFFER DESCRIPTOR FIELDS (BUFF _DESC) 
] 
BD_FIELDS = 

SET 


BD_LO * (0, 0, 36, 0]. ! LOW-ORDER 16 BITS 
BD_HI = (1, 0, 16, 0) !' HIGH-ORDER U/Q BITS 
TES, 

' 

teaeeee RCQS REGISTER FIELDS 

B 

RC_REG = 
SET 
Fa = [0, 16, 0] ! DEFINE ALL BITS 
ES; 











SEQ 0059 


SEQ 0060 
SESSAKERAAASEAAAEAAEAREAESERAAARAELAEERERAAEAREKAARAEAAAAARAEAAESAAEAREKRALERAEEEEER 
& 
MACROS * 
oa 
SECKEAAEEERERALEAEAEEAERELEREEEEEAREREKERASAAEAREEEEEABAARASRALARARAAEAAAKERESL 









MACRO 
eeeees ALL FIELDS OF A WORD 
ALLBIT = 0, 16, Os, ! ALL FIELDS 
taseeee CST FIELDS (WORDS 3 - 6) 
 ] 
P_ADOR = 0, 8, Os, ! PLATTER ADDRESS (MSCP UNIT NO.) 
P_UNIT = 8, 5, OM, ! PLATTER UNIT NUMBER (DRS UNIT NO.) 
P_STAT = 13, 1, Os, ! PLATTER STATUS BIT 
P_PRES = 14, 1, Os, ! PLATTER PRESENT BIT 
P_PROT = 15, 1, Os, ! PLATTER PROTECTION BIT 


' 
$aeaeeae BIT TEST 
4 


BIT_TST (ADDR. EXPECTED) = 
CIF €.ADDk AND EXPECTED) EQLU EXPECTED 
THEN 
TRUE 


SE 
FALSE )s, 
’ 
{aeaeee RC2S WRITE 
' 
WRT_RC25 (0, FIELDNAM, IMAGE) = 
BEGIN 
LOCAL 
RC_REG; 
RC_REG <#FIELDEXPAND (FIELDNAM)> = IMAGE; 


(.RC25_ADDR + (SUPVAL * 0)) = .RC_REG; 
ENDs; 





SEQ 0061 


SREAEAERESAEREKEREASEAEEAAEEEABARE SEARS AEAAEEEEEAEASARAARAARAEEARAAAREAAERALELRE 


STRUCTURES & 


SESEREAEEEEEEAEEEAESESEREEARAASEREREREARAKERAERRARARAREERERAASAEEADREARRAARAELE 


oer er eo) er ey 
* 


teseeee% RC2S ACCESS ALGORITHM 
§ 


STRUCTURE 
RC25 (0, P, S, E] = 
BEGIN 


LOCAL 


RC_REG; 
RC_REG = .(RC25 + SUPVAL * 0) <0, SBPVAL, 0>; 
RC_REG 








SEQ 0062 


CZRCO1 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 1 
14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB ICZRCD1.SRC;6 (1) 

3 0001 0 MODULE CZRCD1 ( 

3 0002 O “TITLE ‘CZRCDBO RC25 DISK EXERCISER’ 

F 0003 0 IDENT = ‘VO02.0', 

3 0004 0 ADDRESSING_MODE (ABSOLUTE) 

; 0005 0 = 

3 0006 1 BEGIN 

3 0007 Ii 

8 ee : SSBTTL ‘PROGRAM HEADER’ 

8 

3 0045 1 LIBRARY ‘CZRCDL’‘; ! RC25 EXERCISER GLOBAL LIBRARY 

F ‘S35 REQUIRE ‘BLSMAC.REQ’; ! DIAGNOSTIC SUPERVISOR LIBRARY 

3 

5 1536 1 LITERAL 

$ coos DS$NBR_OF_TESTS = 1; ! NUMBER OF TESTS IN THIS DIAGNOSTIC 

3 

3 1539 1 EQUALS; 

3 1540 1 

3 1541 1 POINTER CALL); 

3 1542 1 

: 1543 1 t+ 

3 1544 1 ! THE PROGRAM HEADER IS THE INTERFACE BETWEEN THE DIAGNOSTIC PROGRAM 

3 1545 1 ! AND THE SUPERVISOR. THE ARGUMENTS FOR THE “HEADER” MACRO ARE: PROGRAM 

3 1546 1 H NAME, REV, PATCH, LONGEST TEST TIME, TYPE CWHERE 0 = SEQUENTIAL 

F 1547 1 ! DIAGNOSTIC, 1 = EXERCISER), AND, OPTIONALLY, THE PROCESSOR PRIORITY TO 

$ 1548 1 ' BE SET WHEN STARTING THE DIAGNOSTIC. 

3 1549 1 !- 

3 i550 1 

: fos : HEADER (#ASCII‘ CZRCD’', #SASCII'B’, SASCII'O’, 65535, 1, PRIOO); 

8 

3 1333. i 6 

F 1554 1 ! THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. IT 

3 i333 («i ! IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. THE LITERAL 

8 Seat r H "DS$NBR_OF_TESTS” REPRESENTS THE NUMBER OF TESTS (1) IN THIS PROGRAM. 

. Bs 

3 1558 1 

F 1 


DISPATCH (DS$NBR_OF_TESTS); 








a aac ca ca eh a a a ho dl do od dod dod oe do od ed ede ee 
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SSBTTL ‘GLOBAL DATA SECTION’ 


fe 
4 
3 


THE GLOBAL DATA SECTION CONTAINS ALL DYNAMICALLY-MODIFIED DATA. 


PSECT GLOBAL = $FFF$ (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE); 
GLOBAL 





PATCH : VECTOR [100, WORD], ! PATCH AREA 
CPT : VECTOR (MAX_UNITS, BYTE], 
CURRENT PASS TESTING (YES / NO) PER UNIT 
CST : BLOCKVECTOR (MAX_CTLR, CST_LEN, WORD] FIELD (C_FIELDS), 
RUN-TIME CONTROLLER STATUS TABLES 
CST_ADOR : REF BLOCK [CST_LEN, WORD) FIELD (C_FIELDS), 
CONTROLLER STATUS TABLE ADDRESS OF “CURRENT” CONTROLLER 
DCT : BLOCKVECTOR [MAX_CTLR, DCT_LEN, WORD] FIELD (DC_FIELDS), 
DRIVER CONTROLLER TABLES 
DCT_ADDR : REF BLOCK [OCT_LEN, WORD) FIELD (OC_FIELDS), 
ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE 
RC25_ADDR : REF RC25 FIELD C(RC_REG), 
DEVICE ADDRESS OF “CURRENT” CONTROLLER 
IRC25_ADOR : REF RC25 FIELD (RC_REG), 
DEVICE ADDRESS OF INTERRUPTING CONTROLLER 
DM_COMM : BLOCKVECTOR [MAX_CTLR, DMC_LEN, WORD] FIELD (OMC_FIELDS), 
DM EXERCISER COMMUNICATION AREA (LINK TO FRONT PANEL TEST) 
DMC_ADDR : REF BLOCK [DMC_LEN, WORD) FIELD (DMC_FIELDS), 
ADDRESS OF CURRENT CONTROLLER'S DM EXERCISER COMMUNICATION AREA 
RP_SAVE : VECTOR [MAX_CTLR * RPS_LEN, BYTE, SIGNED], 
RETURN PACKET SAVE AREA 
RPS_X1 : WORD, ! STARTING INDEX OF CURRENT CONTROLLER’S RP_SAVE AREA 
RPS_X2 : WORD, ! ENDING INDEX OF CURRENT CONTROLLER’S RP_SAVE AREA 
OUTC_LIST : VECTOR [MAX_CTLR * OUTC_CNT, BYTE, SIGNED], 
OUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES) 
OUTC_TIMR : VECTOR [MAX_CTLR * OUTC_CNT, WORD], 
OUTSTANDING COMMAND TIMERS 


OCL_X1 : WORD, 
STARTING INDEX OF CURRENT CONTROLLER’S OUTSTANDING COMMAND AREA 
OCL_xX2 : WORD, 


ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
TALLY : VECTOR (MAX_UNITS * TALLY_LEN, WORD] FIELD (T_FIELDS), 
STATISTICS TABLES 
T_ADDR : REF BLOCK [TALLY_LEN, WORD) FIELD (T_FIELDS), 
ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 
MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS), 
MSCP ENVELOPE POOL 
ENV_USE : VECTOR [ENV_CNT, BYTE, SIGNED], 
MSCP ENVELOPE POOL ALLOCATION TABLE 
RETPKT : BLOCKVECTOR (RP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS), 
RETURN PACKET POOL 
RP_USE : VECTOR (RP_CNT, BYTE, SIGNED), 
RETURN PACKET POOL ALLOCATION TABLE 
RP_INDX : WORD, ! CURRENT RETURN PACKET INDEX 
RP_ADDR : REF BLOCK [RP_LEN, — FIELD (RP_FIELDS), 


BUFF _DESC : BLOCKVECTOR [MAX_BUF_CNT, DESC_LEN, WORD] FIELD (BD_FIELDS), 
TABLE OF I/0 BUFFER DESCRIPTORS 
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BUFF _OWN : VECTOR [MAX_BUF_CNT, BYTE, SIGNED), 


: I/0 BUFFER OWNERSHIP (CONTROLLER NUMBER) 
T0D@ : VECTOR [IODQ@_LEN, BYTE), 
: 1/0 DONE QUEUE - CIRCULAR QUEUE OF RETPKT 


I00@_IN : an 


T_FLAG : BYTE, 


CPLAT ' WORD, 
CUOFF ; WORD, 


’ 

1 

vu 

a 

a 

v 

' 

] 

' 

CTLR “CNT : WORD, ! 
DUR : VECTOR [MAX_UNITS, BYTE], g 
QIO : VECTOR ([MAX_CTLR, BYTE], g 
MEM_SIZE : WORD, ! 
FREE_MEM_ADOR, ! 
BUFF _SIZE : WORD, ! 
NUM_BUFF : WORD, H 
CLK_TYPE : WORD, ' 
4 

CLK_HERTZ : WORD, ! 
CLK_CSR, : 
CLK_VECTOR, ' 
] 

ft 

' 

' 

' 

a 

' 

u 

a 

' 

t 


SA"REG. : WORD, 
NEX : WORD, 
CRN : WORD; 


* 


IS NOT OPTIONAL. 


ERRTBL; 





THE ERRTBL MACRO IS REQUIRED WHETHER OR NOT THE PROGRAM USES THE 
“ERROR” MACRO. THE ERRTBL MACRO EXPANDS INTO FOUR WORDS THAT ARE 
USED BY THE RUNTIME SERVICES DURING AN ERROR CALL: ERROR TYPE, 
ERROR NUMBER, ADDRESS OF ERROR MESSAGE AND ADDRESS OF MESSAGE 
BLOCK. THERE MUST BE ONLY ONE ERRTBL IN ANY PROGRAM. THIS SECTION 





INDECES 
! I/0 DONE QUEVE IN POINTER 


! I/0 DONE QUEVE OUT POINTER 

! HOW CURRENT PASS WAS INVOKED 

! ONE SECOND TIMING FLAG 

! END-OF -PASS FLAG 

! MEMORY MANAGEMENT FLAG 

! INITIALIZATION-IN-PROGRESS FLAG 

! NUMBER OF “CURRENT” CONTROLLER 

! CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
! CST OFFSET FOR CURRENT UNIT 

! TOTAL NUMBER OF CONFIGURED CONTROLLERS 

! DROP UNIT REASON 

! NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
! AVAILABLE MEMORY CIN WORDS) UP TO 28K 

! START OF FREE MEMORY BELOW 28K 

! SIZE (BYTES) OF AN I/0 BUFFER 


NUMBER OF I/0 BUFFERS 


! TYPE OF CLOCK ON SYSTEM 


(O = NONE, -1 = L-CLOCK, 1 = P_CLOCK) 


! CLOCK HERTZ RATE 

! CLOCK CSR ADDRESS 

! CLOCK VECTOR ADDRESS 
! ELAPSED TIME - HOURS, 


MINUTES, 
SECONDS, 
TICKS 


! CURRENT STATUS CODE 

! CURRENT SUB-CODE 

! CURRENT STEP IN HARD_INIT 

! OFFSET CO OR 2) TO READ IP OR SA 
! STORAGE FOR SA REGISTER READS AND WRITES 
! NON-EXISTENT MEMORY TRAP INDICATOR 

! COMMAND REF NUMBER OF LAST COMMAND SENT 
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CZRCDBO RC25 DISK EXERCISER 
GLOBAL TEXT SECTION 


SSBTTL ‘GLOBAL TEXT SECTION’ 


te 
J 
. 


THE GLOBAL TEXT SECTION CONTAINS ALL MESSAGES OUTPUT TO THE OPERATOR 
DURING THE OPERATION OF THE EXERCISER. THIS INCLUDES HARDWARE AND 
SOFTWARE DIALOG PROMPTS, ERROR MESSAGES, AND DROP UNIT MESSAGES. 


GLOBAL BIND 
eeeees HARDWARE 
] 


!eesees SOFTWARE 
rT 


w 

= 

[>] 

wu 
oneennnuan 


DIALOG 


(SASCIZ'IP ADDRESS’), 

(SASCIZ‘ VECTOR’ ), 

(#ASCIZ‘BR LEVEL’), 

(SASCIZ‘PLATTER ADDRESS CUNIT PLUG)‘), 
(SASCIZ‘ ALLOW WRITES TO CUSTOMER DATA AREA ON THIS PLATTER’), 
(SASCIZ‘#s WARNING - CUSTOMER DATA AREA MAY BE OVERWRITTEN! 


DIALOG 


(SASCIZ‘ERROR LIMIT (O FOR NO LIMIT)‘), 

(SASCIZ' TRANSFER LIMIT IN MEGABYTES (0 FOR NO LIMIT)’), 
(SASCIZ‘SUPPRESS PRINTING ERROR LOG MESSAGES’ ), 
(SASCIZ'RUN DM EXERCISER INSTEAD OF MULTI-DRIVE SUBTEST’), 
(SASCIZ‘RANDOM SEEK MODE’), 

(SASCIZ‘STARTING TRACK’ ), 

(SASCIZ‘ENDING TRACK’), 

(SASCIZ'READ-COMPARES PERFORMED AT THE CONTROLLER’), 
(SASCIZ‘WRITE ONLY’ ) 


SWQ10 = UPLIT (#ASCIZ'WRITE-COMPARES PERFORMED AT THE CONTROLLER’), 
SWQ1i1 = UPLIT (sASCIZ‘CHECK ALL WRITES AT HOST BY READING’), 

SWQ12 = UPLIT (SASCIZ‘ USER-DEFINED DATA PATTERN’ ), 

SWQ15 = UPLIT (SASCIZ' SELECT PRE-DEFINED DATA PATTERN (0 FOR SEQUENTIAL SELECTION)’ ), 
SWQ14 = UPLIT (sASCIZ'NUMBER OF WORDS IN DATA PATTERN (16 MAXIMUM)‘ ), 
SWQ15 = UPLIT (SASCIZ'PATTERN VALUE’), 

SWM1 = UPLIT (SASCIZ‘ THE REMAINING QUESTIONS ONLY APPLY TO UNPROTECTED PLATTERS.'), 


NULL = UPLIT (#ASCIZ‘'), 


!eeeeee INFORMATION MESSAGES CIF ATTENDED MODE, THEN PRINTF) 
‘ 
UPLIT (SASCIZ‘SAPOWER DELAY - WAITINGSN’ ) 


14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 
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-»+ CONFIRM’), 


! ADDED TO COVER ORS BUG (NEXT MESSAGE ALSO PRINTED) 


UPLIT (sASCIZ‘sNSAABOUT TO VERIFY VECTOR s038A(0) FOR DEVICE s068A(0) ... ‘), 
UPLIT (SASCIZ‘SACOMPLETED.#N‘ ), 


UPLIT C#ASCIZ‘SNSAMULTI-DRIVE SUBTEST STARTSN’), 
UPLIT (#ASCIZ‘sSNSADM EXERCISER SUBTEST STARTSN’ ), 
UPLIT (SASCIZ‘SAUNIT SD28A. - TRANSFER LIMIT REACHEDSN’ ) 


= UPLIT (SASCIZ‘SNSAINIT SUBTEST STARTSN’ ), 


UPLIT (SASCIZ‘SD5S8A. BLOCKS TRANSFERRED ON UNIT SD28A. (PLATTER sD3SA. aN’ ), 


!eeeeee CONFIGURATION ERROR MESSAGES CIF ATTENDED MODE, THEN PRINTF) 
’ 


CER_O1 = UPLIT (SASCIZ‘SNSADUPLICATE PLATTER ADDRESS SD3SA. AT IP s06sA(0)'), 


CER_O2 = UPLIT (SASCIZ‘SNSAALREADY 4 UNITS AT IP s068A(0)'), 
CER_O3 = UPLIT (SASCIZ‘SNSAMORE THAN SD1SA DIFFERENT IP ADDRESSSES’ ), 


eases DROP UNIT MESSAGES 








SEQ 0065 
P 


ye (4) 








C2RCOi 
vo2.0 
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SEQ 0066 
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5 
DUM_00 = UPLIT (SASCIZ‘SAUNIT SD28A. DROPPED - ‘), 
DUM_UC = UPLIT (SASCIZ‘SAUSER COMMANDSN’ ), 

DUM_CE = UPLIT (SASCIZ‘’SACONFIGURATION ERRORSN’ ), 

= UPLIT (SASCIZ‘SAINIT ERRORSN’ ), 

DUM_HE = UPLIT (SASCIZ'SAHARD ERROR LIMIT REACHEDSN’ ), 
DUM_UE = UPLIT (#ASCIZ‘SAUNRECOVERABLE ERRORSN’ ), 
J 


teeeese GENERAL ERROR MESSAGES 


g SYSTEM FATAL CERRSF) 


a 
EGS_01 = UPLIT (SASCIZ‘TOO MANY UNITS’), 
EGS_02 = UPLIT (SASCIZ'NEITHER P NOR L CLOCK WAS FOUND ON THE SYSTEM’), 


: DEVICE FATAL CERRDF ) 


EGD_10 = UPLIT (SASCIZ'REGISTER EXISTENCE TEST FAILED’), 
£GD_11 = UPLIT (#ASCIZ‘ VECTOR TEST FAILED’ ), 

EGO_12 = UPLIT (#ASCIZ'BR LEVEL TEST FAILED’), 

EGD_13 = UPLIT (#ASCIZ'INIT SEQUENCE FAILED’), 

EGD_14 = UPLIT (#ASCIZ'FATAL PORT / CONTROLLER ERROR’), 
EGD_15 = UPLIT (SASCIZ'‘MESSAGE RESPONSE TIMEOUT'), 
EGD_16 = UPLIT (#ASCIZ‘ONLINE FAILED’), 

EGD_17 = UPLIT (SASCIZ‘WRITE-PROTECT CONFLICT’), 

EGD_18 = UPLIT (#ASCIZ‘ACCESS FAILED’), 

EGD_19 = UPLIT (SASCIZ‘FATAL I/0 ERROR‘), 

EGD_20 = UPLIT (SASCIZ'CONTROLLER TIMEOUT’), 

EGD_21 = UPLIT (#ASCIZ‘DUP COMMAND FAILED’), 

EGD_22 = UPLIT (#ASCIZ‘'DM EXERCISER TIMEOUT’), 


: HARD CERRHRD) 
EGH_30 = UPLIT (s#ASCIZ‘I/O REQUEST FAILED’), 
 ] 
teseses BASIC ERROR MESSAGES (PRINTB) 
a7 


' SYSTEM FATAL C(ERRSF) 
g 
EBS_01 = UPLIT (ASCIZ’SAMORE THAN “D28A. UNITS SPECIFIEDSN’ ), 
o 
: DEVICE FATAL CERRDF) 
J 
EBD_10 = UPLIT (sASCIZ‘SANO RESPONSE AT ADDRESS #068A(0)N’ ), 
EBD_12 = UPLIT (ASCIZ‘SAINCORRECT BR LEVEL GIVEN FOR DEVICE s06sA(O)sN’ ), 
EBD_13 = UPLIT (#ASCIZ‘SASTEP SD1sA READ ERROR ON DEVICE sD68A(O)SN’), 
EBD_14 = UPLIT (sASCIZ‘SAERROR CODE RECEIVED IN SA REGISTER OF DEVICE #068A(O)N’), 
EBD_15 = UPLIT (sASCIZ‘SAFAILED TO RECEIVE END MESSAGE FROM DEVICE s06s8A(O)SN’ ), 
EBD_16 = UPLIT (sASCIZ‘SAERROR IN RESPONSE TO ONLINE COMMAND FOR PLATTER SD3SA.9N’ ), 
EBD_17 = UPLIT (#ASCIZ'SAPLATTER SD3SA. IS SW WRITE-ENABLED BUT HW WRITE-PROTECTEDSN’ ), 
£BD_18 = UPLIT (ASCIZ‘’SAACCESS FAILED ON PLATTER D3SA.SN’), 
£BD_19 = UPLIT (ASCIZ‘SAPLATTER SD3SA. WENT OFFLINESN’ ), 
EBD_20 = UPLIT (SASCIZ‘SADEVICE #068AC0) NOT PROCESSING COMMAND PACKETSSN’ ), 
EBD_21 = UPLIT (#ASCIZ‘SAMESSAGE REJECTED BY DUP SERVER ON DEVICE s06sA(O)SN’), 
EBD_22 = UPLIT (sASCIZ'SANO RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE s06sA(O)SN: ), 


‘ 
: HARD CERRHRD) - MAINLY BASED ON MSCP STATUS CODES 











SEQ 0067 


EX_BB = UPLIT (sASCIZ‘SA BAD BLOCK REPORTED: #DS58A.sN‘), 

EX_LBN = UPLIT (SASCIZ‘SA LBN: SD58A.aN‘), 

EX_CBC = UPLIT (sASCIZ‘SA BYTE COUNT IN COMMAND: sDS#A.«N: ). 

EX_B8C = UPLIT (SASCIZ‘SA ACTUAL @ OF BYTES TRANSFERRED: sD5sA. aN‘), 
EX_BD = UPLIT (sASCIZ'S#A I/0 BUFFER DESCRIPTOR: $0 7SA(0)8078A(0)SN’ ), 
EX_EL = UPLIT (SASCIZ' SNSAERROR LOG MESSAGE RECEIVED:sN’ ), 

EX_PA = UPLIT (SASCIZ‘SA PLATTER: SD38A.SN' ), 

EX_FMT = UPLIT (SASCIZ‘SA FORMAT: ‘), 

EX_EvVC = UPLIT (#ASCIZ‘SA EVENT CODE: ‘), 

EX_HMA = UPLIT (#ASCIZ‘SA HOST MEM ADOR: :8078A(0)807* ACO)SN’ ), 

EX_03 = UPLIT (#ASCIZ‘ SO3SA(0)SN’), 
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Fy 1779 1 : 

3 1780 1 STC_00 = UPLIT (SASCIZ‘SASUCCESSSN’ ), 

3 1781 1 STC_OL = UPLIT (SASCIZ‘SAINVALID COMMANDSN’ ), 

3 1782 1 STC_O2 = UPLIT (SASCIZ'SACOMMAND ABORTEDSN’ ), 

Fy 1783 1 STC_O03 = UPLIT (SASCIZ'SAUNIT-OFFLINESN’ ), 

3 1784 1 STC_04 = UPLIT (SASCIZ‘ SAUNIT-AVAILABLESN’ ), 

3 1785 (1 STC_O5 = UPLIT (SASCIZ'SAMEDIA FORMAT ERRORSN’ ), 

3 1786 1 STC_06 = UPLIT (SASCIZ‘ SAWRITE -PROTECTEDS@N’ ), 

3 1767 61 STC_O7 = UPLIT (SASCIZ‘SADEVICE COMPARE ERRORSN’ ) 

Fy 1788 1 STC_08 = UPLIT (SASCIZ'SADATA ERRORSN’ ), 

3 i769 1 STC_09 = UPLIT (SASCIZ‘SAHOST BUFFER ACCESS ERRORSN’ ), 
Fy 1790 1 STC_10 = UPLIT (SASCIZ‘SACONTROLLER ERRORSN’ ), 

: fae : STC_11 = UPLIT (SASCIZ‘SADRIVE ERRORSN’' ), 

3 79 : 

3 i793 i E6H_31 = STC_O1, 

: i794 1 EBH_32 = STC_02, 

3 1795 1 EBH_34 = STC_04, 

8 1796 1 €BH_35 = £TC_0S, 

Fy 1797 1 EBH_36 = STC_06, 

3 1798 1 €BH_37 = STC_07, 

8 1799 1 EBH_38 = STC_08, 

8 1800 1 EBH_39 = STC_09, 

3 1801 1 €BH_40 = STC_10, 

3 1802 1 €BH_41 = STC_11, 

3 1803 1 EBH_42 = UPLIT (SASCIZ‘SAHOST-DETECTED WRITE -COMPARE ERRORSN’ ), 
3 oes : EBH_43 = UPLIT (#ASCIZ'SAFAILED TO RECEIVE END MESSAGE FOR I/0 COMMANDSN’ ), 
3 g 

3 pee 1 teaeees EXTENDED ERROR (PRINTX) AND ERROR LOG (PRINTF) MESSAGES 
Hy 180 1 : 

8 1808 1 EX_SA = UPLIT (SASCIZ‘@A SA: S068A(0)S8N'‘), 

8 1809 1 EX_CRN = UPLIT (#ASCIZ'SA CMD REF NUM: s06S8A(0)SN‘), 
H 1810 i EX_SC = UPLIT (#ASCIZ‘'S#A STATUS CODE: #028A(0)SN’ ), 
Fy 1813. 3 EX_DSC = UPLIT (#ASCIZ‘SA DUP STATUS CODE: #D18A.sSN'), 
8 1812 1 EX_SB = UPLIT (#ASCIZ‘SA SUB-CODE: s048A(0)SN’‘), 

3 1813 1 ExX_CMD = UPLIT (#ASCIZ‘S#A COMMAND: ‘), 

3 1814 1 EX_SCC = UPLIT (#ASCIZ‘'SASET CTLR CHAR’), 

8 1815 1 €X_ONL = UPLIT (s#ASCIZ‘ SAONLINE’ ), 

3 1816 i EX_ESP = UPLIT (sSASCIZ‘SAEXECUTE SUPPLIED PROGRAM’ ), 

8 1817 1 EX_SND = UPLIT (#ASCIZ‘SASEND DATA’), 

3 1818 1 Ex “RD = UPLIT (sASCIZ' SAREAD' ), 

Fy 1819 1 EX_WRT = UPLIT (SASCIZ‘SAWRITE'), 

3 1820 1 —x_CMP = UPLIT (SASCIZ‘SA-COMPARESN’ ), 

8 1 

Fy 1 

8 1 

: 1 

8 1 

H 1 

3 1 

Fy i 

$ 1 

F 1 
3 1 


ia ee 











SEQ 0068 
czrcoi CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 8 
vo2.0 GLOBAL TEXT SECTION 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB JCZRCD1.SRC;6 (5) 
3 1832 1 : 
3 1832 i teseees MISCELLANEOUS 
3 1834 1 : 
Fy 1835 1 ETIME = UPLIT (SASCIZ'SD2SA:SD2SA:SD20A ‘), 
Fy 1836 1 PLATT = UPLIT (SASCIZ'SAPLATTER SD3SA. - ‘), 
3 1837 1 CRLF = UPLIT (#ASCIZ‘SN’ ); 
8 1838 1 
ry 1839 ji @SBTTL ‘DEFAULT HARDWARE P-TABLE’ 
3 1840 1 
: 184i, 1} te 
Fy i842 1 : THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF THE TEST-DEVICE 
3 1843 1 : PARAMETERS. THE STRUCTURE OF THIS TABLE IS IDENTICAL TO THE STRUCTURE 
3 1844 i H OF THE ACTUAL HARDWARE P-TABLES, WHICH RESIDE IN SUPERVISOR SPACE, AND 
3 1845 1 : IS USED AS A “TEMPLATE” FOR BUILDING THE P-TABLES. 
: 1846 1 - 
8 1847 2 
3 1848 1 BSGNHW (DFPTBL); 
3 1849 1 
3 1850 1 GLOBAL 
3 1851 1 
8 1852 1 HWPT_IP_ADOR : WORD INITIAL (#0'172150:), ! IP ADDRESS 
8 1852 1 HWPT_VECTOR : WORD INITIAL (#0'154'), ! VECTOR ADDRESS 
3 1854 i HWPT_BR_LEVEL : WORD INITIAL (5), ' BR LEVEL 
: aoe 1 HWPT_PLAT : WORD INITIAL (0); ! PLATTER ADDR, PROTECTON BIT 
Fy 18 1 
3 1857 1 ENDHW; 











— 


SEQ 0069 





i873 
1874 
1875 
1876 
1877 
1878 


SWP_ETRACK ;: WORD INITIAL (MAX_TRACK), 
SWP_FLAGS : BYTE INITIAL (#0'55'), 
SWP_DPAT : BYTE INITIAL (0), 

SWP_UCNT : WORD INITIAL (MAX_UDP_CNT), 
SWP_UDPAT : VECTOR [MAX_UDP_CNT, WORD]; 


ENDING TRACK 

FLAGS (SEE DOCUMENTATION) 
DATA PATTERN NUMBER 

USER DATA PATTERN COUNT 
USER DATA PATTERN 


CZRCD1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 9 
vo2.0 SOFTWARE P-TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB ICZRCD1.SRC;6 (6) 
3 1858 1 SSBTTL ‘SOFTWARE P-TABLE‘ 
8 1859 1 
3 1860 1 te 
3 1861 1 H THE SOFTWARE P-TABLE CONTAINS VARIOUS DATA USED BY THE PROGRAM AS 
1862 1 ! OPERATIONAL PARAMETERS. THESE PARAMETERS ARE SET UP AT ASSEMBLY TIME 
1863 1 H AND MAY BE VARIED BY THE OPERATOR AT RUN TIME. 
1864 i !- 
1865 1 
1866 1 BGNSW CSFPTBL); 
1867 1 
1868 1 GLOBAL 
1869 1 
1870 1 SWP_ERROR : WORD INITIAL (32), HARD ERROR LIMIT FOR DROPPING UNIT 
1871 1 SWP_XFER : WORD INITIAL (2), TRANSFER LIMIT PER UNIT PER PASS 
1872 1 SWP_STRACK : WORD INITIAL (0), STARTING TRACK 
1 
1 
1 
1 
1 
1 
1 


1879 


ENDSW; 





CzRC01 
vo2.0 


oe of oe Ge Ge Ge Ge Gt GH Gt Ge Gs Gs Gs Gs Ge Gs Ge Ge Gs os os oe 
= 
@ 
© 
i 
Oe ee ee pe pe pe ee pe pe pe ps pe po 


000011 060 
000012 000000G 
000014 177777 
000016 000000G 
000020 000000G 
000022 006450‘ 
000024 006464’ 
000026 000000G 
000030 000000 
000032 000000 
000034 000001 
000036 000000 
000040 000124' 
000042 000000 
000044 009000 
000046 000000 


0000590 003 
000051 003 
000052 000000 


CZRCDBO 


RC25 DISK EXERCISER 


PROTECTION TABLE 


SSBTTL 


> 


BGNPROT 
ENDPROT; 
END 
ELUDOM 


103 
103 


‘PROTECTION TABLE’ 





14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCOB ICZRCD1.SRC;6 


THIS TABLE IS USED BY THE RUNTIME SERVICES TO PROTECT THE LOAD MEDIA. 
1ST ARG = BYTE OFFSET INTO P-TABLE FOR CSR ADDRESS 
2ND ARG = BYTE OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
3RD ARG = BYTE OFFSET INTO P-TABLE FOR DRIVE NUMBER 
BYTE OFFSET REFERS TO THE NUMBER OF BYTES FROM THE BEGINNING OF A 
PTABLE ENTRY TO THE ITEM IN QUESTION. IF THE PARTICULAR ITEM DOES NOT 


APPLY, THEN ENTRY IS SET TO -1. 


WHEN THE RUNTIME SERVICES EXECUTES A 


GPHARD, IT USES THESE OFFSETS CIF NOT SET TO -1) TO GET THE ITEMS AND 
COMPARE WITH THOSE SAVED IN THE XXDP+ MONITOR. IF THE UNIT BEING 
REQUESTED MATCHES THE LOAD DEVICE, THEN THE RUNTIME SERVICES RETURN AN 


INCOMPLETE FLAG ON THE GPHARD. 


(-1, -1, -1); 

. TITLE 
. IDENT 
.ENABL 
-PSECT 
132 LS$NAME:: .ASCII 
104 - ASCII 
.BYTE 
.BYTE 

LSREV:: 
-ASCII 
- ASCII 
tt eye 
L$TIML:: .WORD 
L$HPCP:: .WORD 
L$SPCP:: .WORD 
L$HPTP::. WORD 


L$SPTP:: .WORD 
L$LADP:: .WORD 


L$STA:: .WORD 
L$CO:: .WORD 
LSDTYP:: .WORD 
L$APT:: .WORD 
LSDTP:: - WORD 


pel Nae 
LSENVI:: .WORD 
L$EXP1::.WORD 
L$MREV: : 
.BYTE 
BYTE 
LSEF:: .WORD 


CZRCD1 CZRCDBO RC25 DISK EXERCISER 
— 


SCODE$, RO 
/ C2Z/ 
/RCD/ 


L$DISPATCH 


oww ooo 


czRcd1 
vo2.0 





CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 


. WORD 
L$SPC:: .WORD 
L$DEVP:: .WORD 
L$REPP:: .WORD 
LSEXP4:: .WORD 
LSEXPS:: .WORD 
L$AUT:: .WORD 
L$DUT:: .WORD 
L$LUN:: .WORD 
L$DESP::.WORD 
L$LOAD:: .WORD 
LSETP:: .WORD 
L$ICP:: .WORD 
L$CCP:: .WORD 
L$ACP:: .WORD 
LS$PRT:: .WORD 


* LS$TEST::.WORD 


L$DLY:: .WORD 
L$HIME:: .WORD 
D$PCNT:: .WORD 
L$DISPATCH:: 
WORD 
ERRTYP:: .BLKW 
ERRNBR: : .BLKW 
ERRMSG: : .BLKW 
ERRBLK: : .BLKW 
P.AAA: .ASCII 
- ASCII 
ASCII 
- ASCII 
P.AAB: .ASCII 
- ASCII 
ASCII 
P.AAC: .ASCII 
ASCII 
ASCII 
- ASCII 
P.AAD: .ASCII 
ASCII 
- ASCII 
- ASCII 
-ASCII 
- ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
P.AAE: .ASCII 
-ASCII 
- ASCII 
ASCII 
-ASCII 


14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


0 

0 
L$DVTYP 
L$RPT 

0 

0 

L$AU 
L$DU 

0 


L$DESC 
-73743 
LSERRTBL 
L$INIT 
L$CLEAN 
L$AUTO 
L$PROT 


4S/<00><00> 
/VEC/ 
/TOR/ 
<00><00> 
/BR / 
/LEV/ 
/EL/<00> 
<00> 
/PLA/ 
/TTE/ 

/R AS 
/ODR/ 
/ESS/ 

7 Cr 
/NIT/ 

4 PL/ 
/UG)/ 
<00> 
/ALL/ 
/OW / 
/WRI/ 
/TES/ 

/ TO/ 

4 CU/ 
/STO/ 
/MER/ 

/ DA/ 
/TA / 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB ICZRCD1.SRC;6 


SEQ 0071 








SEQ 0072 


CZRCD1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER $1: (AZTEC. CZRCOB ICZRCD1.SRC;6 (7) 
000266 101 122 105 -ASCII /ARE/ 
000271 101 040 117 ASCII /A 0/ 
000274 116 040 124 -ASCII /N T/ 
000277 110 111 123 -ASCII /HIS/ 
000302 040 120 114 -ASCII / PL/ 
000305 101 124 124 -ASCII /ATT/ 
000310 105 122 000 -ASCII /ER/<00> 
000313 000 -ASCII <00> 
000314 052 052 040 P.AAF: .ASCII /#s / 
000317 127 101 122 ASCII /WAR/ 
000322 116 111 116 ASCII /NIN/ 
000325 107 040 055 -ASCII /G -/ 
000330 040 103 125 -ASCII / CU/ 
000333 123 124 117 -ASCII /STO/ 
000336 115 105 122 -ASCII /MER/ 
000341 040 104 101 -ASCII / DA/ 
000344 124 101 040 -ASCII /TA / 
000347 101 122 105 -ASCII /ARE/ 
000352 101 040 115 -ASCII /A M/ 
000355 101 131 040 ASCII /AY / 
000360 102 105 040 -ASCII /BE / 
000363 117 126 105 -ASCII /OVE/ 
000366 122 127 122 -ASCII /RWR/ 
000371 111 124 124 «ASCII /ITT/ 
000374 105 116 041 «ASCII /EN!/ 
000377 040 056 056 -ASCII / ../ 
000402 056 040 103 -ASCII /. C/ 
000405 117 116 106 -ASCII /ONF/ 
000410 111 122 115 «ASCII /IRM/ 
000413 000 -ASCII <00> 
000414 105 122 122 P.AAG: .ASCII /ERR/ 
000417 117 122 040 «ASCII /OR / 
000422 114 111 115 ASCII /LIM/ 
000425 111 124 040 -ASCII /IT / 
000430 050 060 040 -ASCII /(O / 
000433 106 117 122 -ASCII /FOR/ 
000436 040 116 117 -ASCII / NO/ 
000441 040 114 111 -ASCII / LI/ 
000444 115 111 124 «ASCII /MIT/ 
000447 051 000 000 -ASCII /)/<00><00> 
000452 124 122 101 P.AAH: .ASCII /TRA/ 
000455 116 123 106 -ASCII /NSF/ 
000460 105 122 040 -ASCII /ER / 
000463 114 111 115 -ASCII /LIM/ 
000466 111 124 040 «ASCII /IT / 
000471 111 116 040 -ASCII /IN / 
000474 115 105 107 ASCII /MEG/ 
000477 101 102 131 -ASCII /ABY/ 
000502 124 105 123 -ASCII /TES/ 
000505 040 050 060 «ASCII / (0/ 
000510 040 106 117 -ASCII / FO/ 
000513 122 040 116 ASCII /R N/ - 
000516 117 040 114 «ASCII /0 L/ 
000521 111 115 111 ASCII /IMI/ 
000524 124 051 000 «ASCII /T)/<00> 
000527 000 -ASCII <00> 
000530 123 125 120 P.AAI: .ASCII /SUP/ 











SEQ 0073 


CZzRCO1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDOB ICZRCD1.SRC;6 (7) 
000533 120 122 105 -ASCII /PRE/ 
000536 123 123 040 -ASCII /SS / 
000541 120 122 111 «ASCII /PRI/ 
0006544 116 124 111 -ASCII /NTI/ 
000547 116 107 040 -ASCII /NG / 
000552 105 122 122 -ASCII /ERR/ 
000555 117 122 040 «ASCII /OR / 
000560 114 117 107 -ASCII /LOG/ 
000563 040 115 105 -ASCII / ME/ 
000566 123 123 101 -ASCII /SSA/ 
000571 107 105 123 -ASCII /GES/ 
000574 000 000 -ASCII <00><00> 
000576 122 125 116 P.AAJ: .ASCII /RUN/ 
000601 040 104 115 -ASCII / DM/ 
000604 040 105 130 «ASCII / EX/ 
000607 105 122 103 -ASCII /ERC/ 
000612 111 123 105 -ASCII /ISE/ 
000615 122 040 111 -ASCII /R I/ 
000620 116 123 124 -ASCII /NST/ 
000623 105 101 104 -ASCII /EAD/ 
000626 040 117 106 -ASCII / OF/ 
000631 040 115 125 ASCII / MU/ 
000634 114 124 111 ASCII /LTI/ 
000637 055 104 122 -ASCII /-OR/ 
000642 111 126 105 ASCII /IVE/ 
000645 040 123 125 -ASCII / SU’ 
000650 102 124 105 -ASCII /BTE/ 
000653 123 124 000 -ASCII /ST/<00> 
000656 122 101 116 P.AAK: .ASCII /RAN/ 
000661 104 117 115 «ASCII /DOM/ 
000664 040 123 105 -ASCII / SE/ 
000667 105 113 040 -ASCII /EK / 
000672 115 117 104 -ASCII /MOD/ 
000675 105 000 000 -ASCII /€/<00><00> 
000700 123 124 101 P.AAL: .ASCII /STA/ 
000703 122 124 111 -ASCII /RTI/ 
000706 116 107 040 ASCII /NG / 
000711 124 122 101 ASCII /TRA/ 
000714 103 113 000 -ASCII /CK/<00> 
000717 000 -ASCII <00> 
000720 105 116 104 P.AAM: .ASCII /END/ 
000723 111 116 107 -ASCII /ING/ 
000726 040 124 122 «ASCII / TR/ 
000731 101 103 113 -ASCII /ACK/ 
000734 000 000 -ASCII <00><00> 
000736 122 105 101 P.AAN: .ASCII /REA/ 
000741 104 055 103 -ASCII /D-C/ 
000744 117 115 120 -ASCII /OMP/ 
000747 101 122 105 -ASCII /ARE/ 
000752 123 040 120 -ASCII /S P/ 
000755 105 122 106 ASCII /ERF/ 
000760 117 122 115 -ASCII /ORM/ 
000763 105 104 040 ASCII /ED / 
000766 101 124 040 «ASCII /AT / 
000771 124 110 105 ASCII /THE/ 
000774 040 103 117 -ASCII / CO/ 
000777 116 124 122 -ASCII /NTR/ 








SEQ 0074 


CzRcdi CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 14 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB JCZRCD1.SRC;:6 (7) 
001002 117 114 114 -ASCII /OLL/ 
001005 105 122 000 -ASCII /ER/<00> 
001010 127 122 111 P.AAO: .ASCII /WRI/ 
001013 124 105 040 -ASCII /TE / 
001016 117 116 114 -ASCII /ONL/ 
001021 131 000 000 -ASCII /Y/<00><00> 
001024 127 122 111 P.AAP: .ASCII /WRI/ 
001027 124 105 055 -ASCII /TE-/ 
001032 103 117 115 -ASCII /COM/ 
001035 120 101 122 -ASCII /PAR/ 
001040 105 123 040 -ASCII /ES / 
001043 120 105 122 -ASCII /PER/ 
001046 106 117 122 -ASCII /FOR/ 
001051 115 105 104 -ASCII /MED/ 
001054 040 101 124 -ASCII / AT/ 
001057 040 124 110 -ASCII / TH/ 
001062 105 040 103 -ASCII /E C/ 
001065 117 116 124 -ASCII /ONT/ 
001070 122 117 114 -ASCII /ROL/ 
001073 114 105 122 -ASCII /LER/ 
001076 000 000 -ASCII <00><00> 
001100 103 110 105 P.AAQ: .ASCII /CHE/ 
001103 103 113 040 «ASCII /CK / 
001106 101 114 114 -ASCII /ALL/ 
001111 040 127 122 -ASCII / WR/ 
001114 111 124 105 -ASCII /ITE/ 
001117 123 040 101 -ASCII /S A/ 
001122 124 040 110 -ASCII /T H/ 
001125 117 123 124 -ASCII /OST/ 
001130 040 102 131 -ASCII / BY/ 
001133 040 122 105 -ASCII / RE/ 
001136 101 104 111 -ASCII /ADI/ 
001141 116 107 000 -ASCII /NG/<00> 
001144 125 123 105 P.AAR: .ASCII /USE/ 
001147 122 055 104 -ASCII /R-D/ 
001152 105 106 111 -ASCII /€FI/ 
001155 116 105 104 «ASCII /NED/ 
001160 040 104 101 -ASCII / DA/ 
001163 124 101 040 -ASCII /TA / 
001166 120 101 124 -ASCII /PAT/ 
001171 124 105 122 -ASCII /TER/ 
001174 116 000 -ASCII /N/<00> 
001176 123 105 114 P.AAS: .ASCII /SEL/ 
001201 105 103 124 -ASCII /ECT/ 
001204 040 120 122 -ASCII / PR/ 
001207 105 055 104 -ASCII /€-D/ 
001212 105 106 111 -ASCII /€FI/ 
001215 116 105 104 -ASCII /NED/ 
001220 040 104 101 -ASCII / DA/ 
001223 124 101 040 -ASCII /TA / 
001226 120 101 124 -ASCII /PAT/ 
001231 124 105 122 -ASCII /TER/ 
001234 116 040 050 -ASCII /N (/ 
001237 060 040 106 -ASCII /0 F/ 
001242 117 122 040 -ASCII /OR / 
001245 123 105 121 -ASCII /SEQ/ 


001250 125 105 116 ASCII /UEN/ 








CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 





P.AAT: 


P.AAU: 


P.AAV: 


-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 


ASCII 


-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
- ASCII 
- ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
- ASCII 
- ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCIT 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 


/TIA/ 
/L S/ 
JELE/ 
/CTI/ 
/0N)/ 
<00><00> 


/IMU/ 
/M)/<00> 
<00> 
/PAT/ 
/TER/ 
/N V/ 
ZALU/ 
7E/<00> 
/THE/ 

/ RE/ 
/MAI/ 
/NIN/ 
4G Q/ 
/UES/ 
/TIO/ 
/NS / 
/ONL/ 
4Y A/ 
/PPL/ 
c¥ 14 
40 U/ 
/NPR/ 
/OTE/ 
/CTE/ 
4D P/ 
/LAT/ 
/TER/ 
4S./<00> 
<00><00> 
/#AP/ 
/OWE/ 
/R OS 
/ELA/ 
SY -/ 

/ WA/ 
/ITI/ 
/NGS/ 
/N/<00> 





14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:28:52 USER$1:[AZTEC.CZRCOB ICZRCD1.SRC;6 


SEQ 0075 
Page 








CZRCDBO RC25 DISK EXERCISER 
PROTECTION TABLE 


045 116 045 P.AAY: .ASCII 
101 101 102 -ASCII 
117 125 124 -ASCII 
040 124 117 - ASCII 
040 126 105 -ASCII 
122 111 106 -ASCII 
131 040 126 -ASCIT 
105 103 124 -ASCII 
117 122 040 -ASCII 
045 117 063 - ASCII 
045 101 050 -ASCII 
117 051 040 -ASCII 
106 117 122 -ASCII 
040 104 105 -ASCII 
126 111 103 -ASCII 
105 040 045 -ASCII 
117 066 045 -ASCII 
101 050 117 -ASCII 
051 040 056 -ASCII 
056 056 040 -ASCII 
000 000 -ASCII 
045 i91 103 P.AAZ: .ASCII 
117 115 120 -ASCII 
114 105 124 - ASCII 
105 104 056 -ASCII 
oac 116 000 - ASCII 
000 - ASCII 
045 116 045 P.ABA: .ASCII 
101 111 116 -ASCII 
111 124 040 -ASCII 
123 125 102 -ASCII 
124 105 123 -ASCII 
124 040 123 -ASCII 
124 101 122 -ASCII 
124 045 116 -ASCII 
000 000 - ASCII 
045 116 045 P.ABB: .ASCITI 
101 115 125 -ASCII 
114 124 111 -ASCII 
055 104 122 - ASCII 
111 126 105 -ASCII 
040 123 125 -ASCII 
102 124 105 -ASCII 
123 124 040 -ASCII 
123 124 101 -ASCII 
122 124 045 -ASCII 
116 000 -ASCII 
045 116 045 P.ABC: .ASCITI 
101 104 115 ASCII 
040 105 130 ASCII 
105 122 103 ASCII 
111 123 105 ASCII 
122 040 123 ASCII 
125 102 124 ASCII 
105 123 124 ASCII 
040 123 124 ASCII 
101 122 124 ASCII 





/8N8/ 
/AAB/ 
/OUT/ 
4 TO/ 
/ VE/ 
/RIF/ 
4Y V/ 
JECT/ 
7OR / 
/%03/ 
/8AC/ 
40) / 
/FOR/ 
/ DE/ 
/VIC/ 
/E #/ 
/068/ 
/ACO/ 
9 silt 
Yun ¥ 
<00><00> 
/#AC/ 
/OMP/ 
/LET/ 
7ED./ 
/%N/<00> 
<00> 
/SN8/ 
/AIN/ 
SIT # 
/SUB/ 
/TES/ 
/T S/ 
/TAR/ 
/TSN/ 
<00><00> 
/8N8/ 
7AMU/ 
/LTI/ 
/-DR/ 
SIVE/ 
4 SU/ 
/BTE/ 
“ST / 
/STA/ 
/RTS/ 
/N/<00> 
/8N8/ 
7ADM/ 
4 EX/ 
ZERC/ 
/ISE/ 
JR S/ 
/UBT/ 
/EST/ 
f $i 
ZART/ 


14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB JCZRCD1.SRC;6 


SEQ 0076 


16 
(7) 








CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09: 


PROTECTION TABLE 
116 000 
101 125 
111 124 
045 104 
045 101 
040 oss 
124 122 
116 123 
105 122 
114 111 
111 124 
122 105 
103 110 
104 045 
000 000 
104 065 
101 056 
102 114 
103 113 
040 124 
101 116 
106 105 
122 105 
040 117 
040 125 
111 124 
045 104 
045 101 
040 050 
114 101 
124 105 
040 045 
063 045 
056 051 
116 000 
116 045 
104 125 
114 111 
101 124 
040 120 
101 124 
105 122 
101 104 
122 105 
123 040 
104 063 
101 056 
101 124 
111 120 
045 117 
045 101 
117 051 
116 045 
101 114 
105 101 





SEQ 0077 
35:23 VAX-11 Bliss-16 V4.0-579 P 
14-Jun-1985 09:28:52 USER $1: f AZTEC. CZRCDB ICZRCD1.SRC;6 


-ASCII /#N/<00> 
-ASCII <00> 
P.ABD: .ASCII /#AU/ 
-ASCII /NIT/ 
-ASCII / #D/ 
-ASCII /2s8A/ 
-ASCII /. -/ 
-ASCII / TR/ 
-ASCII /ANS/ 
-ASCII /FER/ 
«ASCII / LI/ 
-ASCII /MIT/ 
-ASCII / RE/ 
-ASCII /ACH/ 
-ASCII /EDS/ 
-ASCII /N/<00><00> 
P.ABE: .ASCII /#D5/ 
-ASCII /#A./ 
-ASCII / BL/ 
-ASCII /0OCK/ 
-ASCII /S T/ 
-ASCII /RAN/ 
-ASCII /SFE/ 
-ASCII /RRE/ 
-ASCII /D O/ 
-ASCII /N U/ 
-ASCII /NIT/ 
-ASCII / #D/ 
-ASCII /28A/ 
-ASCII /. (/ 
-ASCII /PLA/ 
-ASCII /TTE/ 
-ASCII /R #/ 
-ASCII /038/ 
-ASCII /A.)/ 
-ASCII /N/<00> 
-ASCII /sNs/ 
-ASCII /ADU/ 
-ASCII /PLI/ 
-ASCII /CAT/ 
-ASCII /E P/ 
-ASCII /LAT/ 
-ASCII /TER/ 
-ASCII / AD/ 
«ASCII /DRE/ 
-ASCII /SS / 
-ASCII /#803/ 
-ASCII /#A./ 
-ASCII / AT/ 
-ASCII / IP/ 
-ASCII / #0/ 
-ASCII /6s8A/ 
-ASCII /(€0)/ 
-ASCII <00> 
P.ABG: .ASCII /sNs/ 
-ASCII /AAL/ 
-ASCII /REA/ 


P.ABF: 


age 
(7) 
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CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 


131 
111 


P. ABH: 


P.ABI: 


P. ABU: 


P.ABK: 


P.ABL: 


P. ABM: 





14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


/0Y / 
44 U/ 
/NIT/ 
4S A/ 
4/T I/ 
/P 6/ 
/06%/ 
7ACO/ 
4)/<00><00> 


/#AU/ 


/NDS/ 
/N/<00><00> 
/8AC/ 
/ONF / 
/IGU/ 
/RAT/ 
/ION/ 

4 ER/ 
/ROR/ 
/8N/<00> 
/#AI/ 
/NIT/ 

4 ER/ 
/ROR/ 
/8N/<00> 
<00> 
/#AH/ 
/ARD/ 

4 ER/ 
/ROR/ 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB JCZRCD1. SRC:6 


SEQ 0078 
age 
(7) 
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ee aaa 


czrco1 
vo2.0 





CZRCOBO RC25 DISK EXERCISER 


PROTECTION TABLE 


“ 


P. ABN: 


P.ABO: - 


P.ABP: 


P. ABQ: 


P.ABR: 


P.ABS: 





-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 


ASCII 


-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 





14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


/ LI/ 
/MIT/ 

4 REZ 
/ACH/ 
JEDS/ 
/N/<00><00> 
/#AU/ 
/NRE/ 
/COV/ 
JERA/ 
/BLE/ 

/ ER/ 
/ROR/ 
/#N/<00> 
/T00/ 

/ MA/ 
/NY / 
/UNI/ 
7TS/<00> 
<00> 
/NEI/ 


"/THE/ 


/R Ps 
4 NO/ 
JR LZ 
G7 
/0CK/ 
/ WA/ 
4S F/ 
/OUN/ 
4D O/ 
/N T/ 
JHE / 
/SYS/ 
/TEM/ 
<00> 
/REG/ 
JIST/ 
JER / 
JEXI/ 
/STE/ 
/NCE/ 
4 TE/ 
#3T # 
/FAI/ 
/LED/ 
<Q00><00> 
/VEC/ 
/TOR/ 
/ TE/ 
4ST / 
/FAI/ 
/LED/ 
<00><00> 
/BR / 
/LEV/ 
JEL / 


VAX-11 Bliss-16 V4.0-579 
USER$1:(AZTEC.CZRCOB ICZRCD1.SRC;36 


ee 


SEQ 0079 
Page 





19 
(7) 


a Ee 








SEQ 0080 
czecd1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 20 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1:[AZTEC.CZRCDB JCZRCD1. SRC;6 . (7) 
002751 124 105 123 -ASCII /TES/ 
002754 124 040 106 «ASCII /T F/ 
002757 101 111 114 «ASCII /AIL/ 
002762 105 104 000 -ASCII /ED/<00> 
002765 000 «ASCII <00> 
002766 lil 116 111 P.ABT: .ASCIY /INI/ 
OO2771 124 040 123 «ASCII /T S/ 
00277 105 121i 125 «ASCII /E€QuU/ 
002777 105 116 103 -ASCII /ENC/ 
003002 105 040 106 -ASCII /E F/ 
003005 ic: lil 114 -ASCII /AIL/ 
003010 105 104 000 -ASCII /€D/<00> 
003013 00« -ASCII <00> 
003014 106 101 124 P.ABU: ASCII /FAT/ 
003017 101 114 040 «ASCII /AL / 
003022 120 117 122 -ASCII /POR/ 
003025 124 040 057 -ASCII /T /<57> 
003030 040 103 117 «ASCII / CO/ 
003033 116 i24 122 -ASCII /NTR/ 
003036 117 114 114 -ASCII /OLL/ 
003041 105 122 040 «ASCII /ER / 
003044 105 122 122 -ASCII /ERR/ 
003047 117 122 000 -ASCII /0R/<00> 
003052 115 105 123 P.ABV: .ASCII /MES/ 
003055 123 101 107 -ASCII /SAG/ 
003060 105 040 122 -ASCII /E R/ 
003063 105 123 120 «ASCII /ESP/ 
003066 117 116 123 -ASCII /ONS/ 
003071 105 040 124 -ASCII /E T/ 
003074 111 115 105 -ASCII /IME/ 
003077 117 125 124 «ASCII /OUT/ 
003102 000 000 «ASCII <00><00> 
003104 117 116 114 P.ABW: .ASCII /ONL/ 
003107 112 116 105 «ASCII /INE/ 
003112 040 106 101 «ASCII / FA/ 
003115 111 114 105 -ASCII /ILE/ 
003120 104 000 -ASCII /D/<00> 
003122 127 122 111 P.ABX: .ASCII /WRI/ 
003125 124 105 055 -ASCII /TE-/ 
003130 120 122 117 -ASCII /PRO/ 
003133 124 105 103 -ASCII /TEC/ 
003126 124 040 103 «ASCII /T C/ 
003141 117 116 106 -ASCII /ONF/ 
003144 114 111 103 -ASCII /LIC/ 
002147 124 000 000 -ASCII /T/<00><00> 
003152 101 103 103 P.ABY: .ASCII /ACC/ 
003155 105 123 123 -ASCII /ESS/ 
602160 040 106 101 -ASCII / FA/ 
003163 111 114 105 «ASCII /ILE/ 
003166 104 900 -ASCII /D/<00> 
003179 106 101 124 P.ABZ: .ASCII /FAT/ 
003172 101 114 040 -ASCII /AL / 
003176 111 057 117 -ASCII /1I/<57>/0/ 
0035201 040 105 122 -ASCII / ER/ 
002204 122 117 122 «ASCII /ROR/ 
0032C7 000 -ASCII <0Q0> 
0032219 103 117 116 P.ACA: .ASCII /CON/ 








SEQ 0081 


CzRCO1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 21 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1:(AZTEC.CZRCOB ICZRCD1.SRC;6 @ 
003213 124 22 117 «ASCII /TRO/ 
003216 114 114 105 «ASCII /LLE/ 
003221 122 040 124 -ASCII /R T/ 
003224 111 115 105 «ASCII /IME/ 
003227 117 125 124 -ASCII /OUT/ 
003232 000 000 «ASCII <00><00> 
003234 104 125 120 P.ACB: .ASCII /DUP/ 
003237 040 103 117 -ASCII / CO/ 
003242 i15 115 101 -ASCII /MMA/ 
003245 116 104 040 «ASCII /ND / 
003250 106 101 Lil «ASCII /FAI/ 
003253 114 105 104 ASCII /LED/ 
003256 000 000 -ASCII <00><00> 
003260 104 115 040 P.ACC: .ASCII /DM / 
003263 105 130 105 -ASCII /EXE/ 
003266 122 103 111 -ASCII /RCI/ 
003271 123 105 122 -ASCII /SER/ 
003274 040 124 111 -ASCII / TI/ 
003277 115 105 117 -ASCII /MEQ/ 
003302 125 124 000 -ASCII /UT/<00> 
003305 000 «ASCII <00> 
003306 111 057 117 P.ACD: .ASCII /1/<57>/0/ 
003311 040 122 105 -ASCII / RE/ 
003314 121 125 105 -ASCII /QUE/ 
003317 123 124 040 -ASCII /ST / 
003322 106 101 111 -ASCII /FAI/ 
003325 114 105 104 -ASCII /LED/ 
003330 000 000 -ASCII <00><00> 
003332 045 101 115 P.ACE: .ASCII /#AM/ 
003335 117 122 105 -ASCII /ORE/ 
003340 040 124 110 -ASCII / TH/ 
003343 101 116 040 -ASCII /AN / 
003346 045 104 062 -ASCII /#D2/ 
003351 045 101 056 -ASCII /#A./ 
003354 040 125 116 -ASCII / UN/ 
003357 111 124 123 -ASCII /ITS/ 
003362 040 123 120 -ASCII / SP/ 
003365 105 103 111 ASCII /ECI/ 
003370 106 lil 105 ASCII /FIE/ 
003373 104 045 116 -ASCII /DsN/ 
003376 000 000 -ASCII <00><00> 
003400 045 101 116 P.ACF: .ASCII /#AN/ 
003403 117 040 122 -ASCII /0 R/ 
003406 105 123 120 -ASCII /ESP/ 
003411 117 116 123 -ASCII /ONS/ 
003414 105 040 101 -ASCII /E A/ 
003417 124 040 101 -ASCII /T A/ 
003422 104 104 122 -ASCII /DDR/ 
003425 105 123 123 -ASCII /ESS/ 
003430 040 045 117 -ASCII / #0/ 
003433 066 045 101 -ASCII /68A/ 
003436 050 117 051 «ASCII /(€0)/ 
003441 045 116 000 -ASCII /#N/<00> 
003444 045 101 111 P.ACG: .ASCII /#AI/ 
003447 116 103 117 -ASCII /NCO/ 
003452 122 122 105 -ASCII /RRE/ 
003455 103 124 040 -ASCII /CT / 


Wee ee 








SEQ 0082 


czrc01 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB JCZRCD1. SRC;6 (7) 
003460 102 122 040 -ASCII /BR / 
003463 114 105 126 ASCII /LEV/ 
003466 105 114 040 -ASCII /EL / 
003471 107 111 126 -ASCII /GIV/ 
003474 105 116 040 -ASCII /EN / 
003477 106 117 122 -ASCII /FOR/ 
003502 040 104 105 -ASCII / DE/ 
003505 126 111 103 -ASCII /VIC/ 
003510 105 040 045 -ASCII /E #/ 
003513 117 066 045 -ASCII /068/ 
003516 101 050 117 -ASCII /ACO/ 
003521 Osi 045 116 -ASCII /)sN/ 
003524 000 000 -ASCII <00><00> 
003526 045 101 123 P.ACH: .ASCII /#AS/ 
003531 124 105 120 -ASCII /TEP/ 
003534 040 045 104 -ASCII / #D/ 
003537 061 045 101 -ASCII /18A/ 
003542 040 122 105 -ASCII / RE/ 
003545 101 104 040 -ASCII /AD / 
003550 105 122 122 «ASCII /ERR/ 
003553 117 122 040 «ASCII /OR / 
003556 117 116 040 -ASCII /ON / 
003561 104 105 126 ASCII /DEV/ 
003564 111 103 105 -ASCII /ICE/ 
003567 040 045 117 -ASCII / #0/ 
003572 066 045 101 -ASCII /68A/ 
003575 050 117 051 -ASCII /(0)/ 
003600 045 116 000 -ASCII /#N/<00> 
003603 000 -ASCII <00> 
003604 045 101 105 P.ACI: .ASCII /#AE/ 
003607 122 122 117 -ASCII /RRO/ 
003612 122 040 103 -ASCII /R C/ 
003615 117 104 105 -ASCII /ODE/ 
003620 040 122 105 -ASCII / RE/ 
003623 103 105 111 -ASCII /CEI/ 
003626 126 105 104 -ASCII /VED/ 
003631 040 111 116 -ASCII / IN/ 
003634 040 123 101 «ASCII / SA/ 
003637 040 122 105 -ASCII / RE/ 
003642 107 111 123 -ASCII /GIS/ 
003645 124 105 122 -ASCII /TER/ 
003650 040 117 106 -ASCII / OF/ 
003653 040 104 105 -ASCII / DE/ 
003656 126 111 103 -ASCII /VIC/ 
003661 105 040 045 -ASCII /E #/ 
003664 117 066 045 -ASCII /068/ 
003667 101 050 117 «ASCII /ACO/ 
003672 051 045 116 -ASCII /)sN/ 
003675 000 -ASCII <00> 
003676 045 101 106 P.ACJ: .ASCII /#AF/ 
003701 101 111 114 ASCII /AIL/ 
003704 105 104 040 -ASCII /ED / 
003707 124 117 040 -ASCII /TO / 
003712 122 105 103. «ASCII /REC/ 
003715 105 111 126 «ASCII /EIV/ 
903720 105 040 105 -ASCII /E E/ 
003723 116 104 040 ASCII /ND / 











SEQ 0083 





CZRCO01 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 23 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER $1: (AZTEC. CZRCOB ICZRCD1.SRC;6 (7) 
003726 115 105 123 -ASCII /MES/ 
003731 123 101 107 -ASCII /SAG/ 
003734 105 040 106 -ASCII /E F/ 
003737 122 117 115 -ASCII /ROM/ 
003742 040 104 105 ASCII / DE/ 
003745 126 111 103 -ASCII /VIC/ 
003750 105 040 045 -ASCII /E #/ 
003753 117 066 045 -ASCII /068/ 
003756 101 050 117 «ASCII /ACO/ 
003761 051 045 116 -ASCII /)N/ 
003764 000 000 «ASCII <00><00> 
003766 045 101 105 P.ACK: .ASCII /#AE/ 
003771 122 122 117 -ASCII /RRO/ 
003774 122 040 111 -ASCII /R I/ 
003777 116 040 122 -ASCII /N R/ 
004002 105 123 120 -ASCII /ESP/ 
004005 117 116 123 -ASCII /ONS/ 
004010 105 040 124 -ASCII /E T/ 
004013 117 040 117 -ASCII /0 0/ 
004016 116 114 111 «ASCII /NLI/ 
004021 116 105 040 “ASCII /NE / 
004024 103 117 115 -ASCII /COM/ 
004027 115 101 116 -ASCII /MAN/ 
004032 104 040 106 -ASCII /D F/ 
004035 117 122 040 -ASCII /OR / 
004040 120 114 101 «ASCII /PLA/ 
004043 124 124 105 -ASCII /TTE/ 
004046 122 040 045 -ASCII /R #/ 
004051 104 063 045 -ASCII /D38/ 
004054 101 056 045 -ASCII /A.#/ 
004057 116 000 000 -ASCII /N/<00><00> 
004062 045 101 120 P.ACL: .ASCII /s#AP/ 
004065 114 101 124 “ASCII /LAT/ 
004070 124 105 122 -ASCII /TER/ 
004073 040 045 104 -ASCII / #D/ 
004076 063 045 101 -ASCII /38A/ 
004101 056 040 111 -ASCII /, I/ 
004104 123 040 123 -ASCII /S S/ 
004107 127 040 127 ASCII /W W/ 
004112 122 111 124 -ASCII /RIT/ 
004115 105 055 105 -ASCII /E-E/ 
004120 116 101 102 -ASCII /NAB/ 
004123 114 105 104 «ASCII /LED/ 
004126 040 102 125 -ASCII / BU/ 
004131 124 040 110 -ASCII /T H/ 
004134 127 040 127 -ASCII /W W/ 
004137 122 111 124 «ASCII /RIT/ 
004142 105 055 120 -ASCII /E-P/ 
004145 122 117 124 -ASCII /ROT/ 
004150 105 103 124 -ASCII /ECT/ 
004153 105 104 045 -ASCII /EDs/ 
004156 116 000 -ASCII /N/<00> 
004160 045 101 101 P.ACM: .ASCII /#AA/ 
004163 103 103 105 -ASCII /CCE/ 
004166 123 123 040 -ASCII /SS / 
004171 106 101 111 -ASCII /FAI/ 
004174 114 105 104 ‘ -ASCII /LED/ 


he 














SEQ 0084 
CZRCO1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 24 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1:(AZTEC.CZRCOB JCZRCD1.SRC;6 (7) 
004177 040 117 116 -ASCII / ON/ 
004202 040 120 114 -ASCII / PL/ 
004205 101 124 124 «ASCII /ATT/ 
004210 105 122 040 -ASCII /ER / 
004213 045 104 063 «ASCII /#D3/ 
004216 045 101 056 -ASCII /#A,/ 
004221 045 116 000 -ASCII /#N/<00> 
004224 045 101 120 P.ACN: .ASCII /#AP/ 
004227 114 101 124 -ASCII /LAT/ 
004232 124 105 122 «ASCII /TER/ 
004235 040 045 104 -ASCII / #D/ 
004240 063 045 101 -ASCII /3%A/ 
004243 056 040 127 -ASCII /. W/ 
004246 105 116 124 «ASCII /ENT/ 
004251 040 117 106 ASCII / OF/ 
004254 106 114 111 «ASCII /FLI/ 
004257 116 105 045 -ASCII /NES/ 
004262 116 000 -ASCII /N/<00> 
004264 045 101 104 P.ACO: .ASCII /#AD/ 
004267 105 126 111 -ASCII /EVI/ 
004272 103 105 040 -ASCII /CE / 
004275 045 117 066 -ASCII /#06/ 
004300 045 101 050 -ASCII /#AC/ 
004303 117 051 040 -ASCII /0) / 
004306 116 117 124 -ASCII /NOT/ 
004311 040 120 122 -ASCII / PR/ 
004314 117 103 105 -ASCII /0CE/ 
004317 123 123 111 -ASCII /SSI/ 
004322 116 107 040 -ASCII /NG / 
004325 103 117 115 «ASCII /COM/ 
004330 115 101 116 ASCII /MAN/ 
004333 104 040 120 -ASCII /D P/ 
004336 101 103 113 -ASCII /ACK/ 
004341 105 124 123 -ASCII /ETS/ 
004344 045 116 000 -ASCII /#N/<00> 
004347 000 -ASCII <00> 
004350 045 101 115 P.ACP: .ASCII /#AM/ 
004353 105 123 123 -ASCII /ESS/ 
004356 101 107 105 -ASCII /AGE/ 
004361 040 122 105 -ASCII / RE/ 
004364 112 105 103 -ASCII /JEC/ 
004367 124 105 104 -ASCII /TED/ 
004372 040 102 131 -ASCII / BY/ 
004375 040 104 125 -ASCII / DU/ 
004400 120 040 123 -ASCII /P S/ 
004403 105 122 126 ASCII /ERV/ 
004406 105 122 040 -ASCII /ER / 
004411 117 116 040 -ASCII /ON / 
004414 104 105 i6e -ASCII /DEV/ 
004417 111 103 -ASCII /ICE/ 
004422 040 045 117 -ASCII / #0/ 
004425 066 045 101 -ASCII /6%A/ 
004430 050 117 051 -ASCII /(€0)/ 
004433 045 116 000 -ASCII /#N/<00> 
004436 045 101 116 P.ACQ: .ASCII /#AN/ 
004441 117 040 122 -ASCII /0 R/ 
004444 105 123 120 ASCII /ESP/ 











SEQ 0085 
P 


CZRCO1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 age 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCOB JCZRCD1.SRC;6 (7) 
004447 117 116 123 -ASCII /ONS/ 
004452 105 040 106 «ASCII /E F/ 
004455 122 117 115 -ASCII /ROM/ 
004460 040 106 122 «ASCII / FR/ 
004463 117 116 124 -ASCII /ONT/ 
004466 040 120 101 -ASCII / PA/ 
004471 116 105 114 -ASCII /NEL/ 
004474 040 124 105 sASCITZ 7 TE? 
004477 123 124 040 -ASCII /ST / 
004502 105 130 105 «ASCII /EXE/ 
004505 103 125 124 -ASCII /CUT/ 
004510 111i 116 107 -ASCII /ING/ 
004513 040 111 116 «ASCII / IN/ 
004516 040 104 105 -ASCII / DE/ 
004521 126 111 103 -ASCII /VIC/ 
004524 105 040 045 -ASCII /E #/ 
004527 117 066 045 -ASCII /068/ 
004532 101 050 117 -ASCII /ACO/ 
004535 051 045 116 -ASCII /)ssN/ 
004540 000 000 -ASCII <00><00> 
004542 045 101 123 P.ACR: .ASCII /#AS/ 
004545 125 103 103 -ASCII /UCC/ 
004550 105 123 123 -ASCII /ESS/ 
004553 045 116 000 -ASCII /#N/<00> 
004556 045 101 111 P.ACS: .ASCII /s#AI/ 
004561 116 126 101 -ASCII /NVA/ 
004564 114 111 104 -ASCII /LID/ 
004567 040 103 117 -ASCII / CO/ 
004572 115 115 101 -ASCII /MMA/ 
004575 116 104 045 -ASCII /NDS/ 
004600 116 000 -ASCII /N/<00> 
004602 045 101 103 P.ACT: .ASCII /#AC/ 
004605 117 115 115 -ASCII /0MM/ 
004610 101 116 104 -ASCII /AND/ 
004613 040 101 102 -ASCII / AB/ 
004616 117 122 124 -ASCII /ORT/ 
004621 105 104 045 -ASCII /EDsS/ 
004624 116 000 -ASCII /N/<00> 
004626 045 101 125 P.ACU: .ASCII /#AU/ 
004631 116 111 124 -ASCII /NIT/ 
004634 055 117 106 -ASCII /-OF/ 
004637 106 114 111 -ASCII /FLI/ 
004642 116 105 045 -ASCII /NES/ 
004645 116 000 000 -ASCII /N/<00><00> 
004650 045 101 125 P.ACV: .ASCII /s#AU/ 
004653 116 111 124 -ASCII /NIT/ 
004656 055 101 126 -ASCII /-AV/ 
004661 101 111 114 -ASCII /AIL/ 
004664 101 102 114 -ASCII /ABL/ 
004667 105 045 116 -ASCII /EsN/ 
004672 000 000 -ASCII <00><00> 
004674 045 101 115 P.ACW: .ASCII /sAM/ 
004677 105 104 111 -ASCII /€DI/ 
004702 101 040 106 -ASCII /A F/ 
004705 117 122 115 -ASCII /ORM/ 
004710 101 124 040 -ASCII /AT / 
004713 105 122 122 -ASCII /ERR/ 











SEG 0086 


CZRCD1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1:[AZTEC.CZRCOB ICZRCD1.SRC;6 (7) 
004716 117 122 045 -ASCII /OR#/ 
004721 116 000 000 «ASCII /N/<00><00> 
004724 045 101 127 P.ACX: .ASCII /sAW/ 
004727 122 111 124 «ASCII /RIT/ 
004732 105 055 120 -ASCII /E-P/ 
004735 122 117 124 -ASCII /ROT/ 
004740 105 103 124 «ASCII /ECT/ 
004743 105 104 045 -ASCII /EDs8/ 
004746 116 000 -ASCII /N/<00> 
004750 045 101 104 P.ACY: .ASCII /#AD/ 
004753 105 126 111 -ASCII /EVI/ 
004756 103 105 040 -ASCII /CE / 
004761 103 117 115 «ASCII /COM/ 
004764 120 101 122 «ASCII /PAR/ 
004767 105 040 105 -ASCII /E E/ 
004772 122 122 117 -ASCII /RRO/ 
004775 122 045 116 ASCII /R#N/ 
005000 000 000 -ASCII <00><00> 
005002 045 101 104 P.ACZ: .ASCII /#AD/ 
005005 101 124 101 -ASCII /ATA/ 
005010 040 105 122 ASCII / ER/ 
005013 122 117 122 -ASCII /ROR/ 
005016 045 116 000 -ASCII /#N/<00> 
005021 000 -ASCII <00> 
005022 045 101 110 P.ADA: .ASCII /#AH/ 
005025 117 123 124 -ASCII /OST/ 
005030 040 102 125 -ASCII / BU/ 
005033 106 106 105 -ASCII /FFE/ 
005036 122 040 101 -ASCII /R A/ 
005041 103 103 105 -ASCII /CCE/ 
005044 123 123 040 -ASCII /SS / 
005047 105 122 122 -ASCII /ERR/ 
005052 117 122 045 -ASCII /OR#S/ 
005055 116 000 000 ASCII /N/<00><00> 
005060 045 101 103 P.ADB: .ASCII /#AC/ 
005063 117 116 124 -ASCII /ONT/ 
005066 122 117 114 ASCII /ROL/ 
005071 114 105 122 -ASCII /LER/ 
005074 040 105 122 «ASCII / ER/ 
005077 122 117 122 -ASCII /ROR/ 
005102 045 116 000 -ASCII /#N/<00> 
005105 000 -ASCII <00> 
005106 045 101 104 P.ADC: .ASCII /#AD/ 
005111 122 111 126 ASCII /RIV/ 
005114 105 040 105 -ASCII /E E/ 
005117 122 122 117 «ASCII /RRO/ 
005122 122 045 116 -ASCII /RSN/ 
005125 000 -ASCII <00> 
005126 045 101 110 P.ADD: .ASCII /#AH/ 
005131 117 123 124 -ASCII /OST/ 
005134 055 104 105 -ASCII /-DE/ 
005137 124 105 103 -ASCII /TEC/ 
005142 124 105 104 ASCII /TED/ 
005145 040 127 122 ASCII / WR/ 
005150 111 124 105 ASCII /ITE/ 
005153 055 103 117 -ASCII /-CO/ 
005156 115 120 101 ASCII /MPA/ 








CZRC01 
vo2.0 


005161 
005164 
005167 
005172 
005174 
005177 
005202 
005205 
005210 
005213 
005216 
005221 
005224 
005227 
005232 
005235 





CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 


040 
122 
045 


106 
114 
040 


P.ADE: 


P.ADF: 


P.ADG: 


P.ADH: 


P.ADI: 





S 
14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Pa 27 
14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCOB ICZRCD1.SRC;6 (7) 


JRE / 
ZERR/ 
/ORS/ 
/N/<00> 
/8AF/ 
/AIL/ 
ZED / 
/T0 / 
JREC/ 
/EIV/ 
JE E/ 
/ND / 
/MES/ 
/SAG/ 
JE F/ 
JOR / 
41/¢57>/0/ 
4 CO/ 
/MMA/ 
/NDS/ 
/N/<00> 
/8A / 
Fd / 
/SA:/ 

4 #0/ 
/6%A/ 
7(€0)/ 
/%N/<00> 
<00> 
/8A / 

/ / 
/CMD/ 
/ RE/ 
/F N/ 
/UM:/ 

/ #0/ 
/6%A/ 
7(0)/ 
/%N/<00> 
/8A / 
/ / 
/STA/ 
/TUS/ 

/ CO/ 
/DE:/ 
/ #0/ 
/28A/ 
7(0)/ 
/%N/<00> 
/8A / 
/ / 
/DUP/ 

/ ST/ 
/ATU/ 
7S C/ 
/ODE/ 
/: &/ 





CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 





P.ADJ: 


P.ADK: 


P.ADL: 


P.ADM: 


P.ADN: 


P.ADO: 


P.AOP: 


P.ADQ: 


P.ADR: 


P.ADS: 


- ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 


/D1is/ 
/A.8/ 
/N/<00> 
4A / 

/ / 
/SUB/ 
7-CO/ 
/DE:/ 

4 #0/ 
/48A/ 
/(0)/ 
/#N/<00> 
<00> 

/8A / 

/ / 
/COM/ 
/MAN/ 
40: / 
<00> 
/#AS/ 
JET / 
/CTL/ 

/R C/ 
/HAR/ 
<00> 
/%A0/ 
/NLI/ 
/NE/<00> 
<00> 
/#AE/ 
/XEC/ 
/UTE/ 

4 SU/ 
/PPL/ 
/IED/ 

7 PR/ 
/OGR/ 
7AM/<00> 
<00> 
/#AS/ 
ZEND/ 

/ DA/ 
/TA/<Q0> 
/#AR/ 
/EAD/ 
<00><00> 
/8AW/ 
/RIT/ 
7E/<00> 
/#A-/ 
/COM/ 
/PAR/ 
/ESN/ 
<00><00> 
/8A / 

/ / 
/BAD/ 


14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB JCZRCD1.SRC;6 


SEQ 0088 





28 
(7) 





SEQ 0089 
P 


CZRCD1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 age 29 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER $1: (AZTEC. CZRCDB JCZRCD1. SRC;6 (7) 
005665 040 102 114 ASCII / BL/ 
005670 117 103 113 «ASCII /OCK/ 
005673 040 122 105 ASCII / RE/ 
005676 120 117 122 -ASCII /POR/ 
005701 124 105 104 «ASCII /TED/ 
005704 072 040 045 -ASCII /: #/ 
005707 104 065 045 ASCII /058/ 
005712 101 056 045 ASCII /A.#/ 
005715 116 000 000 -ASCII /N/<00><00> 
005720 045 101 040 P.ADT: .ASCII /#A / 
005723 040 040 040 -ASCIIT / 7 
005726 114 102 116 ASCII /LBN/ 
005731 072 040 045 -ASCII /: #/ 
005734 104 065 045 -ASCII /D5#8/ 
005737 101 056 045 -ASCII /A,#/ 
005742 116 000 -ASCII /N/<00> 
005744 045 101 040 P.ADU: .ASCII /#A / 
005747 040 040 040 -ASCII / / 
005752 102 131 124 -ASCII /BYT/ 
005755 105 040 103 ASCII /E C/ 
005760 117 125 116 -ASCII /OUN/ 
005763 124 040 111 «ASCII /T I/ 
005766 116 040 103 ASCII /N C/ 
005771 117 115 115 -ASCII /OMM/ 
005774 101 116 104 ASCII /AND/ 
005777 072 040 045 -ASCII /: #/ 
006002 104 065 045 -ASCII /D5s8/ 
006005 101 056 045 -ASCII /A.#/ 
006010 116 000 ASCII /N/<00> 
006012 045 101 040 P.ADV: .ASCII /#A / 
006015 040 040 040 -ASCIZT /¢ Ff 
006020 101 103 124 ASCII /ACT/ 
006023 125 101 114 -ASCII /UAL/ 
006026 040 043 040 -ASCII / @/ 
006031 117 106 040 -ASCII /OF / 
006034 102 131 124 -ASCII /BYT/ 
006037 105 123 040 -ASCII /ES / 
006042 124 122 101 ASCII /TRA/ 
006045 116 123 106 -ASCII /NSF/ 
006050 105 122 122 -ASCII /ERR/ 
006053 105 104 072 -ASCII /ED:/ 
006056 040 045 104 -ASCII / #D/ 
006061 065 045 101 -ASCII /S#A/ 
006064 056 045 116 -ASCII /,siN/ 
006067 000 -ASCII <00> 
006070 045 101 040 P.ADW: .ASCII /#A / 
006073 040 040 040 ASIZ ¢ # 
006076 111 057 117 ASCII /1/<57>/0/ 
006101 040 102 125 -ASCII / BU/ 
006104 106 106 105 -ASCII /FFE/ 
006107 122 040 104 -ASCII /R D/ 
006112 105 123 103 -ASCII /ESC/ 
006115 122 111 120 ASCII /RIP/ 
006120 124 117 122 -ASCII /TOR/ 
006123 072 045 117 -ASCII /:#0/ 
006126 067 045 101 ASCII /7#A/ 
006131 050 117 051 ASCII /(€0)/ 











CZRCOBO RC25 DISK EXERCISER 
PROTECTION TABLE 





P.ADX: 


P.ADY: 


P.ADZ: 


P.AEA: 


P.AEB: 


14-Jun-1985 09: 
14-Jun-1985 09: 


/807/ 
/6AC/ 
/0)8/ 
4N/<00><00> 
/8N8/ 
/AER/ 
/ROR/ 
/ LO/ 
4G M/ 
ZESS/ 
/AGE/ 
/ RE/ 
/CEI/ 
/VED/ 


/6A / 

/ / 
/FOR/ 
/MAT/ 

's 7<Q0> 
“00> 

SA / 

/ / 
JEVE/ 
/NT / 
/COD/ 
JE: / 
<00><00> 
/8A / 

/ / 
/HOS/ 

/T M/ 
/EM / 
/ADD/ 
/R:8/ 
4078/ 
ZACOS 
/)80/ 
/78A/ 
4(0)/ 
/#N/<00> 


/N/<00><0Q> 
/8D02/ 
/8A;:/ 


3 
2 


5: 
8: 


23 
52 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB JCZRCD1. SRC;6 


a aaa 


SEQ 0090 
P 


age 30 
(7) 





177777 
177777 
177777 


CZRCOBO RC25 DISK EXERCISER 


PROTECTION TABLE 


062 
072 


040 


P.AEE: .ASCII 


P.AEF: ae 
LSHWLEN: : 
. WORD 
HWPT.IP.ADDR:: 
. WORD 
HWPT. VECTOR: : 
WOR 


. Dd 
HWPT .BR.LEVEL: : 


. WORD 
HWPT PLAT: : 
WORD 


LSNDHW: : .BLKW 
L$SWLEN: : 


. WORD 
SWP.ERROR: : 

. WORD 
SWP.XFER:: 

. WORD 
SWP.STRACK:: 

. WOR 
aie? 
SWP.FLAGS:: 

.BYT 
SWP.DPAT:: 

-BYT 
SWP.UCNT:: 

oW 
SWP.UDPAT: : 

BL 


L$NOSW:: .BLKW 
L$PROT:: .WORD 


14-Jun-1985 09: 
14-Jun-1985 09: 


/802/ 
/6A:/ 
/#02/ 
/A / 

4 /<Q0> 
/#AP/ 
/LAT/ 
/TER/ 

4 #0/ 
/38A/ 
4. -/ 

4 4<0Q0> 
/#N/<00> 
<00> 


<<L$NDHW-L $HWLEN>/2> 
-5630 

154 

5 


4) 
1 


<<L$NDSW-LSSWLEN>/2> 
40 


SFFF$, RO 
144 
10 
34 





3 
2 


23 
52 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB JCZRCD1. SRC:6 


=—— 
ne (7) 





31 


quay. aa 


czRrco1 
vo2.0 


000532 
000534 
0005 36 
000540 
001060 
001062 
001122 
001124 
001126 
001226 
001426 
001430 
001432 
003032 
003034 
017634 
017774 
022774 
023034 
023036 
023040 
023440 


023540 
023600 


023602 
023604 


023605 
023606 


023607 
023610 
023612 
023614 
023616 
023620 


023622 








CZRCDBO RC25 DISK EXERCISER 


PROTECTION TABLE 


OCT. ADOR:: 
.BLKW 

RC25.ADDR:: 
.BLKW 

IRC25.ADOR:: 
BL 


OCL.X1::.BLKW 
OCL.X2::.BLKW 
TALLY:: .BLKW 
T. ADDR: : .BLKW 
MSCP .ENV:: 


8 
ENV.USE:: 
RETPKT: : .BLKW 
RP .USE:: .BLKW 
RP .INDX:: 

8 
RP ADDR: : 

.BLKW 
antptommes * 
BUFF .OWN: : 

.BLKW 
I00Q@:: .BLKW 
I00Q.IN:: 


-BLK 
I0DQ.0UT:: 


-BLKW 
ENTRY.REASON:: 


CUOFF:: . 
CTLR.CNT:: 


DUR: : ; LKW 


Pe a 


oO 





14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


VAX-11 Bliss-16 V4.0-579 
USER$1:[ AZTEC. CZRCOB JCZRCD1.SRC;6 


| 


SEQ 0092 
P 


ge 
(7) 





32 


- 


c7rcol 
vo2.0 


023642 
023646 


023650 
023652 
023654 
023656 
023660 
023662 
023664 


023666 
023670 


023672 


023€74 
023676 


023700 


023702 
023704 
023706 
023710 
023712 





CZRCDBO RC25 DISK EXERCISER 
PROTECTION TABLE 
QIO:: .BLKW 
MEM. SIZE:: 


.BLKW 
FREE .MEM.ADDR:: 


-BLKW 
BUFF .SIZE:: 
-BLK 


.BLKW 
CLK. VECTOR:: 
.BLKW 
HOURS:: .BLKW 
MINUTES: : 
-BLKW 
SECONDS: : 
.BLKW 
TICKS:: .BLKW 


-BLKW 


.BLKW 
STEP:: .BLKW 
OF .RC:: .BLKW 
SA.REG:: .BLKW 
NEX:: -BLKW 
CRN:: .BLKW 


-GLOBL 
-GLOBL 
-GLOBL 





14-Jun-1985 09:35:23 
14-Jun-1985 09:28:52 


el aaa ania aml el oe ev) 


L$SOFT, TSPTHV, LSRPT, LSINIT 
LSCLEAN, L$LAST, L$HARD, L$DVTYP 
LSDESC, L$DU, L$AU, LSAUTO, T1 


- 100000 
40000 
20000 
10000 
4000 


VAX-11 Bliss-16 V4.0-579 
USER$1:(AZTEC.CZRCOB JCZRCD1.SRC;6 





SEQ 0093 
Page 33 
(7) 











SEQ 0094 


czrco1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 34 

vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER $1: (AZTEC. CZRCOB JCZRCD1.SRC;6 (7) 
090200 BIT7== 200 
090100 BIT6== 100 
000040 BITS== 40 
000020 BIT4== 20 
000010 BIT3== 10 
000004 BIT2== 4 
000002 BITi== 2 
000001 BITO== 1 
000040 EF .START== 40 
000037 EF .RESTART== 37 
000036 EF .CONTINUE== 36 
000035 EF .NEW== 35 
000034 EF .PWR== 34 
000340 PRIO7== 340 
000300 PRIO6== 300 
000240 PRIOS== 240 
000200 PRIO4== 200 
000140 PRIO3== 140 
000100 PRIO2== 100 
000040 PRIO1L== 40 
000000 PRIOO== 0 
000004 EVL== a 
000010 LOT== 10 
0C0020 ADR== 20 
000040 IDU== 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXE== 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE == -100000 
000126° LSERRTBL == ERRT YP 
006464' L$SW== L$SWLEN+2 
006450° LSHW== L$HWLEN+2 
000011" L$DEPO== L$REV+1 
000136° HWQ1== P.AAA 
000152: HWQ2 == P.AAB 
000162’ HWQ3== P.AAC 
000174' HWQ4 == P.AAD 
000230° HWQS == P. ARE 
000314° HWQ6 == P.AAF 
000414° SWQ1== P. AAG 
000452’ SWQ2== P.AAH 
000530° SWQ3== P.AAI 
000576‘ SWQ4 == P.AAJ 
000656’ SWQ5== P.AAK 
000700: SWQ6== P.AAL 
009720: SWQ7== P.AAM 
000736’ SWQ8 == P.AAN 
001010° SWQ9== P. AAO 
001024° SWQ10== P. AAP 
001100: SWQ11== P.AAQ 
001144: SWQ12== P.AAR 


Beh el eee aml 








SEQ 0095 
P 


czRcd1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 age 3 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER $1: (AZTEC. CZRCDB JCZRCD1.SRC;6 7) 
001176° SWQ13== P.AAS 
001274: SWQ14== P.AAT 
001352° SWQ15== P. AAU 
001370: SWM1== P.AAV 
001464° NULL == P. AAW 
001466‘ MSG.01== P.AAX 
001520° MSG.02== P.AAY 
001616' MSG.03== P.AAZ 
001636‘ MSG.04== P.ABA 
001670: MSG.05== P.ABB 
001730° MSG. 06== P. ABC 
001772' MSG.07== P.ABD 
002044° MSG. 08== P.ABE 
002140' CER.O1== P.ABF 
002224' CER.02== P.ABG 
002270' CER. 03== P. ABH 
002344: DUM. 00== P.ABI 
002376‘ DUM.UC== P.ABJ 
002420' DUM. CE== P.ABK 
002450' DUM. IE== P.ABL 
002470' DUM. HE == P.ABM 
002526 ' DUM. UE== P. ABN 
002556 ' EGS.01== P. ABO 
0C2576' EGS.02== P.ABP 
002654' EGD.10== P.ABQ 
002714' EGD.11== P.ABR 
002740' EGD.12== P.ABS 
002766‘ EGD.13== P.ABT 
003014' EGD.14== P. ABU 
003052° EGD.15== P.ABV 
003104' EGD. 16== P. ABW 
003122' EGD.17== P.ABX 
003152’ EGD.18== P.ABY 
003170’ EGD.19== P.ABZ 
003210' EGD.20== P.ACA 
003234’ EGD.21== P.ACB 
003260' EGD.22== P.ACC 
003306' EGH. 30== P.ACD 
003332' EBS.01== P.ACE 
003400' EBD.10== P.ACF 
003444° EBD. 12== P.ACG 
003526‘ EBD.13== P.ACH 
003604 ' EBD. 14== P.ACI 
003676‘ EBD. 15== P.ACJ 
003766‘ EBD. 16== P.ACK 
004062‘ EBD.17== P.ACL 
004160' EBD.18== P.ACM 
004224' EBD.19== P.ACN 
004264’ EBD. 20== P.ACO 
004350’ EBD. 21== P.ACP 
004436‘ EBD. 22== P.ACQ 
004542‘ STC.00== P.ACR 
004556‘ STC.01== P.ACS 
004602’ STC.02== P.ACT 
004626‘ STC.03== P.ACU 
004650’ STC.04== P.ACV 
004674' STC.05== P.ACW 


Boat Ea IA Pale al 





SEQ 0096 


CZRCD1 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 36 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1:(AZTEC.CZRCOB JCZRCD1.SRC;6 (7) 
004724' STC. 06== P.ACX 
004750‘ STC.07== P.ACY 
005002 ' STC.08== P.ACZ 
005022’ STC.09== P.ADA 
005060' STC.10== P.ADB 
005106’ STC. 1122 P.ADC 
004556‘ EBH.31== P.ACS 
004602‘ EBH. 32== P.ACT 
004650' EBH. 34== P.ACV 
004674: EBH. 35== P.ACW 
004724' EBH. 36== P.ACX 
004750‘ EBH.37== P.ACY 
005002' EBH. 38== P.ACZ 
005022' EBH. 39== P.ADA 
005060' EBH. 40== P.ADB 
005106‘ EBH.41== P.ADC 
005126' EBH. 42== P.ADD 
005174' EBH. 43== P.ADE 
005256‘ EX.SA== P. ADF 
005304‘ EX.CRN== P.ADG 
005342' EX.SC== P.ADH 
005400' EX.DSC== P.ADI 
005440' EX.SB== P.ADJ 
0C5474' EX.CMD== P.ADK 
005514' EX.SCC== P.ADL 
005534' EX.ONL== P.ADM 
005546‘ . EX .ESP== P.ADN 
005602‘ EX.SND== P.ADO 
005616' EX.RD== P.ADP 
005626‘ EX.WRT== P.ADQ 
005636‘ EX.CMP== P.ADR 
005654 ' EX.BB== P.ADS 
005720' EX.LBN== P.ADT 
005744' EX.CBC== P. ADU 
006012’ EX.BC== P.ADV 
006070‘ ; EX.BD== P.ADW 
006150‘ EX.EL== P.ADX 
006212' EX.PA== P.ADY 
006242’ EX .FMT== P.ADZ 
006262’ EX .EVC== P.AEA 
006306‘ EX .HMA== P.AEB 
006356’ EX.03== P.AEC 
006372‘ ETIME== P.AED 
006416' PLATT== P.AEE 
005442' CRLF == P. AEF 
006450‘ DFPTBL== L$HWLEN+2 
006464 ' SFPTBL== L$SWLEN+2 


PSECT SUMMARY 


; Psect Name Words Attributes 
8 $CODE$ 1716 RO« 2 a toe OEE. FON 
; $FFFS$ 5094 OG, 2 »« LOL. REL, COM 








SEQ 0097 
CZRCD1 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:35:23 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 PROTECTION TABLE 14-Jun-1985 09:28:52 USER$1: (AZTEC. CZRCDB ICZRCD1.SRC;6 (7) 
; Library Statistics 
: ee ee a) ee Re Symbols -------- Pages Processing 
; File Total Loaded Percent Mapped Time 
F 
; USER$1:[AZTEC.CZRCDBIJCZRCOL.L16;6 276 138 50 16 00:00.2 
3 COMMAND QUALIFIERS 
: BLISS/PDP11 CZRCD1.SRC/LIST/EN:NOEIS 
; Size: 0 code + 6810 data words 
: Run Time: 00:58.9 
; Elapsed Time: 00:59.9 
3; Lines/CPU Min: 1938 
3; Lexemes/CPU-Min: 13067 
; Memory Used: 258 pages 
; Compilation Complete 











=e A 
14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 « (1) 


CZRCD2 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 


3 0001 O MODULE CZRCD2 ( 

3 0002 +O STITLE ‘CZRCDBO RC25 DISK EXERCISER’ 

8 0003 0 IDENT = ‘V02.0', 

Fy 0004 0 ROORESSING “MODE CABSOLUTE) 

’ 0005 Oo 

: 0006 1 BEGIN 

H 0007 1 

3 0043 «(1 SSBTTL ‘DECLARATIONS’ 

8 0044 #1 

F 0045 1 LIBRARY ‘CZRCDL’‘; ' RC25 EXERCISER GLOBAL LIBRARY 
H +335 : REQUIRE ‘BLSMAC.REQ’ ; ! DIAGNOSTIC SUPERVISOR LIBRARY 
; 

; 1536 1 FORWARD ROUTINE 

H 1537 1 NEX_TRAP : L$ISR NOVALUE, 

H i538 1 CLK_INT_SERV : L$ISR NOVALUE, 

3 i539 1 EMS_01 : NOVALUE; 

8 1540 1 

3 1541 1 EXTERNAL 

3 1542 1 PATCH : VECTOR [100, WORD], ! PATCH AREA 

H 1543 1 CPT : VECTOR [MAX_UNITS, BYTE], 

3 1544 1 ’ CURRENT PASS TESTING CYES / NO) PER UNIT 

3 1545 1 CST : BLOCKVECTOR [MAX_CTLR, CST_LEN, WORD] FIELD (C_FIELDS), 
3 1546 1 H RUN-TIME CONTROLLER STATUS TABLES 

: 1547 1 CST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C_FIELDS), 

3 1548 1 H CONTROLLER STATUS TABLE ADDRESS OF “CURRENT” CONTROLLER 

Fy 1549 1 DCT : BLOCKVECTOR [MAX_CTLR, DCT_LEN, WORD] FIELD (DC_FIELDS), 
8 1550 1 ! DRIVER CONTROLLER TABLES 

3 1551 1 DCT_ADDR : REF BLOCK [DCT_LEN, WORD) FIELD (DC_FIELDS), 

Fy 1552 1 $ ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE 

8 i553 1 RC25_ADDR : REF RC25 FIELD C(RC_REG), 

; 1 


: DEVICE ADDRESS OF “CURRENT” CONTROLLER 











oF 98 SF GF Ge ae SF Ge GF GF SF GH GH GH GF GF GH Ge Gs Se GF SH GH Ge Ge Os Gs Gs Os os os 6s os 
= 
uu 
sn 
oO 
ee ee ee ee ee ee be ee ee ee ee ee pe he he he he he he he ps pe pe ps 


IRC25_ADOR : REF RC25 FIELD (RC_REG), 
DEVICE ADDRESS OF INTERRUPTING CONTROLLER 
DM_COMM : BLOCKVECTOR [MAX_CTLR, DMC_LEN, WORD] FIELD (OMC_FIELDS), 
DM EXERCISER COMMUNICATION AREA (LINK TO FRONT PANEL TEST) 
DMC_ADDR : REF BLOCK (DMC_LEN, WORD] FIELD (OMC_FIELDS), 
ADDRESS OF CURRENT CONTROLLER’S DM EXERCISER COMMUNICATION AREA 
RP_SAVE : VECTOR [MAX_CTLR * RPS_LEN, BYTE, SIGNED], 
RETURN PACKET SAVE AREA 


RPS_X1 : WORD, ! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
RPS_X2_ : WORD, ! ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 


OUTC_LIST : VECTOR [MAX_CTLR * OUTC_CNT, BYTE, SIGNED), 
OUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES) 
OUTC_TIMR : VECTOR [MAX_CTLR * OUTC_CNT, WORD], 
OUTSTANDING COMMAND TIMERS 
OCL_X1 : WORD, 
. ee OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
OCL_x2 : W 6 
ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
TALLY : VECTOR [MAX_UNITS * TALLY_LEN, WORD] FIELD (T_FIELDS), 
STATISTICS TABLES 
T_ADDR : REF BLOCK [TALLY_LEN, WORD) FIELD (T_FIELDS), 
ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 
MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS), 
MSCP ENVELOPE POOL 
ENV_USE : VECTOR [ENV_CNT, BYTE, SIGNED], 
MSCP ENVELOPE POOL ALLOCATION TABLE 
RETPKT : BLOCKVECTOR [RP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS), 
RETURN PACKET POOL 
RP_USE : VECTOR [RP_CNT, BYTE, SIGNED), 
RETURN PACKET POOL ALLOCATION TABLE 
RP_INDX : WORD, !' CURRENT RETURN PACKET INDEX 
RP_ADDR : REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS), 
CURRENT RETURN PACKET ADDRESS 
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s 1588 1 BUFF _DESC : BLOCKVECTOR [MAX_BUF_CNT, DESC_LEN, WORD) FIELD (BD_FIELDS), 

; 1589 1 ? TABLE OF I/0 BUFFER DESCRIPTORS 

s 1590 1 BUFF _OWN : VECTOR ([MAX_BUF_CNT, BYTE, SIGNED), 

s 0 3 : I/0 BUFFER OWNERSHIP (CONTROLLER NUMBER) 

s to i I0D@ : VECTOR [IODQ@_LEN, BYTE], 

s 1593 1 t I/0 DONE QUEVE - CIRCULAR QUEVE OF RETPKT INDECES 

s 1594 1 IODQ_IN : WORD, ! I/0 DONE QUEVE IN POINTER 

s i i I0DQ_OUT : WORD, ! I/0 DONE QUEVE OUT POINTER 

: oe ENTRY_REASON : BYTE, ! HOW CURRENT PASS WAS INVOKED 

s 7 3 T_FLAG : BYTE, ! ONE SECOND TIMING FLAG 

;. me ¢ EOP_FLAG : BYTE, ! END-OF-PASS FLAG 

5 Ow Ft MEM_MGMT : BYTE, ! MEMORY MANAGEMENT FLAG 

s 1600 1 IIP_FLAG : BYTE, ! INITIALIZATION-IN-PROGRESS FLAG 

- 2a & CCTLR ; WORD, ! NUMBER OF “CURRENT” CONTROLLER 

s 1602 1 CPLAT : WORD, ! CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
; 1603 1 CUOFF : WORD, ! CST OFFSET FOR CURRENT UNIT 

s 1604 1 CTLR_CNT : WORD, ! TOTAL NUMBER OF CONFIGURED CONTROLLERS 
> 1605 1 DUR : VECTOR [MAX_UNITS, BYTE], ! DROP UNIT REASON 

; 1606 1 QI0 : VECTOR [MAX_CTLR, BYTE], ! NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
s 1607 1 MEM_SIZE : WORD, ! AVAILABLE MEMORY CIN WORDS) UP TO 28K 

; 1608 1 FREE _MEM_ADOR, ! START OF FREE MEMORY BELOW 28K 

s 1609 1 BUFF _SIZE : WORD, ! SIZE (BYTES) OF AN I/O BUFFER 

s 1610 1 NUM_BUFF : WORD, ! NUMBER OF I/0 BUFFERS 

C’ oe. 8 CLK_TYPE : WORD, ! TYPE OF CLOCK ON SYSTEM 

+ Bw t ! (QO = NONE, -1 = L-CLOCK, 1 = P_CLOCK) 
s 1613 1 CLK_HERTZ : WORD, ! CLOCK HERTZ RATE 

s 1614 1 CLK_CSR, ! CLOCK CSR ADDRESS 

s 65 1 CLK_VECTOR, ! CLOCK VECTOR ADDRESS 

; 1616 1 HOURS : WORD, ! ELAPSED TIME - HOURS, 

: iy @ MINUTES : WORD, : MINUTES, 

s 1618 1 SECONDS : WORD, : SECONDS, 

s 1619 1 TICKS : WORD, : TICKS 

s 1620 1 ST_CODE : WORD, ! CURRENT STATUS CODE 

s 1621 1 SB_CODE : WORD, ! CURRENT SUB-CODE 

s i622 i STEP : WORD, ! CURRENT STEP IN HARD_INIT 

; 1623 1 OF _RC : SIGNED WORD, ! OFFSET CO OR 2) TO READ IP OR SA 

; 1624 1 SA_REG : WORD, ! STORAGE FOR SA REGISTER READS AND WRITES 
s 625 8 NEX ;: WORD, ! NON-EXISTENT MEMORY TRAP INDICATOR 

s 1626 1 CRN : WORD, ! COMMAND REF NUMBER OF LAST COMMAND SENT 
s 1627 1 HWQ1, 

; 1628 1 HWQ2, 

; 1629 1 HWQ3, 

; 1630 1 HWQ4, 

; 1631 1 HWQ5, 

s 1632 1 HWQ6, 

s 1633 1 SwQ1, 

; 1634 1 SWQ2, 

s 1635 1 SwQ3, 

s 1636 1 SWQ4, 

s 1637 1 SwQs, 

s 1638 1 SWQ6, 

s 1639 1 SWQ7, 

s 1640 1 SWQ8, 

s 1641 1 SWQ9, 

s 1642 1 SWQ10, 

s 1643 1 SWQ11, 

s 1644 1 SWQ12, 
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EX _6B, 
EX_LBN, 


ll el ll el ll el ll ol ll ll el ol ll ll ll od ol el el ol ol dd ed od od od od ed eed eed ed ed ed ed en en ee ed ed eee ee ee 
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vo2.0 DECLARATIONS 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 (2) 
$ 1702 1 €x_cec, 

F 1703 1 Ex_6C, 

3 1704 1 Ex_8D, 

3 1705 1 Ex_03, 

3 1706 1 ETIME, 

’ 1707 1 PLATT, 

; 1708 1 CRLF, 

3 1709 1 SWP_ERROR : WORD, 

$ 1710 1 SWP_XFER : WORD, 

3 1711 1 SWP_STRACK : WORD, 

F i712 1 SWP_ETRACK : WORD, 

3 1713 1 SWP_FLAGS : BYTE, 

3 1714 1 LS$LUN, 

8 a7iS. i LS$UNIT; 

3 i716 1 sSBTTL ‘TYPE AND DESCRIPTION’ 

3 het ae | 

F 1718 1 EQUALS; 

$ 1719 1 

3 1720 1 te 

3 1721 1 ! THE TEXT WHICH APPEARS IN THESE MACROS IS DISPLAYED TO THE USER WHEN 

3 1722 1 ! THE DIAGNOSTIC IS FIRST LOADED AND RUN. 

3 1723 1 !- 

; 1724 1 

3 phe : DEVTYP (#ASCIZ‘SINGLE RC25 PLATTER’); ! “UNIT IS SINGLE RC25 PLATTER” 
H 1726 

3 a727 i DESCRIPT (#ASCIZ‘RC25 DISK EXERCISER’); ! TEST DESCRIPTION 








ee ee ee ee ee ee pee fee ee pe pe pe pe pe ee pe pe 
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HARDWARE PARAMETER CODING SECTION 14-Jun-1985 09: 
SSBTTL ‘HARDWARE PARAMETER CODING SECTION’ 


Ww 


' 

: THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS THAT ARE USED BY 
: THE SUPERVISOR TO BUILD " TABLES. THE MACROS ARE NOT EXECUTED AS 

: MACHINE INSTRUCTIONS BU: ARE INTERPRETED BY THE SUPERVISOR AS DATA 

: STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
¢ WITH THE OPERATOR. 

i 


GPRMA (HWQ1, 0, 0, #0'160000', #0'177777', YES, 1); ! IP ADDRESS 
GPRMA CHWQ2, 2, 0, 80'4', 80'774', YES, 1); ! VECTOR 

GPRMD CHWQ3, 4, 0, 80'177777', #0'4', #0'7', YES, 1); ! BR LEVEL 

GPRMD CHWQ4, 6, D, #0'377', SDECIMAL‘'O’, SDECIMAL‘ 253’, YES, 1); ! PLATTER ADDRESS 


GPRML (HWQ5, 6, #0'100000', NO, 1); ! WRITE ON CUST DATA AREA 
XFERF CHWDONE); ! NO - DONE 

GPRML CHWQ6, 6, #0'100000', NO, 1); ! #& WARNING / CONFIRM 
$l CHWDONE ); 

ENDHRD ; 
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SOFTWARE PARAMETER CODING SECTION 14-Jun-1985 09: 


t SSBTTL ‘SOFTWARE PARAMETER CODING SECTION’ 
1 fe 
i ! THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS THAT ARE USED BY 
1 ! THE SUPERVISOR TO INTERROGATE THE OPERATOR FOR SOFTWARE INFORMATION 
1 ! WHICH WILL BE PLACED IN THE SOFTWARE P-TABLE. THE MACROS ARE NOT 
1 ! EXECUTED AS MACHINE INSTRUCTIONS BUT ARE INTERPRETED BY THE SUPERVISOR 
1 ! AS DATA STRUCTURES. THE MACROS ALLOW THE SUPERVISOR TO ESTABLISH 
: H COMMUNICATIONS WITH THE OPERATOR. 
'. 
1 
: BGNSFT; 
1 GPRMD (SWQ1, 0, D, #0'177777', 0, 65535, YES, 1); ! ERROR LIMIT 
1 GPRMD (SWQ2, 2, D, #0'177777', 0, 65535, YES, 1); ' TRANSFER LIMIT 
1 GPRML (SWQ3, 8, SWF_SEL, YES, 1); ! SUPPRESS ERROR LOG PRINTING 
1 GPRML (SWQ4, 8, SWF_OM, YES, 1); ! RUN OM EXERCISER 
1 XFERT (SW3); ! IF YES - DONE 
i GPRML (SWQ5, 8, SWF_RDM, YES, 1); ! RANDOM SEEK MODE 
1 GPRMD (SWQ6, 4, D, #0'177777', 0, MAX_TRACK, YES, 1); § STARTING TRACK 
1 GPRMD (SWQ7, 6, D, #0'177777', GPSATLO(4), MAX_TRACK, YES, 1); ! ENDING TRACK 
1 GPRML (SWQ8, 8, SWF_CRC, YES, 1); ! READ-COMPARES AT CONTROLLER 
1 DISPLAY (SWM1); ! REMAINING QUESTIONS ONLY APPLY ... 
1 GPRML (SWQ9, 8, SWF_WO, YES, 1); ' WRITE ONLY 
i GPRML (SWQ10, 8, SWF_CWC, YES, 1); $ WRITE-COMPARES AT CONTROLLER 
1 XFERT (SW1); ! IF YES, SKIP NEXT QUESTION 
: the 8, SWF_HWC, YES, 1); ! CHECK WRITES AT HOST BY READING 
L H 
i GPRM. (sdui2, 8, SWF_UDP, YES, 1); ! USER-DEFINED DATA PATTERN 
1 XFERT (SW2); ! IF YES, SKIP NEXT QUESTION 
1 GPRMD (SWQ13, 8, D, #0'177400', 0, DP_CNT, YES, 1); ! SELECT PRE-DEFINED DATA PATTERN 
1 XFER (SW4); ! DONE 
1 $l (SW2); 
1 GPRMD (SWQ14, 10, D, #0'177777', 1, MAX_UDP_CNT, YES, 1); ! NO. OF WORDS IN USER DATA PATTERN 
1 GPRMD (SWQ1S5, 12, 0, #0'177777', 0, #80'177777', NO, 10); ! PATTERN VALUES 
1 $L (SW3); 
f $L (SW4); 
1 ENDSFT; 














CZRCDBO RC25 DISK EXERCISER 
REPORT CODING SECTION 


SSBTTL ‘REPORT CODING SECTION’ 


BGNRPT; 
BIND 
SR_ET = UPLIT (SASCIZ‘ SAELAPSED vag 


8 1 

Fy 1 

3 1 

3 1 

3 1 

Fy 1 

3 1 

3 1 

3 2 

3 2 

3 2 

3 

3 1802 2 SR_MH1 = UPLIT (SASCIZ'SNSA NO. NO.‘), 

3 1803 2 SR_MH2 = UPLIT (SASCIZ‘SNSAUNIT READS WRITES MBYTES MBYTES HARD ERROP'), 

3 1804 2 SR_MH3 + UPLIT (SASCIZ‘SNWA NO. (K=1000) (K=1000) READ WRITTEN ERRORS LOGS’), 

; 1805 2 SR_MH4& = UPLIT (SASCIZ'SNSA---- --------  -------- cee nee eee eee e  -neeee) eee aN’), 

8 1806 2 SR_UN = UPLIT (#ASCIZ‘' SNSD3' ), 

3 1807 2 SR_LO = UPLIT (SASCIZ‘SD9ONA ‘), 

3 1808 2 SR_HI = UPLIT (#ASCIZ' SD9ONAK: ), 

8 1809 2 SR_ML = UPLIT (#ASCIZ‘ 8D98D88D9sD7' iF 

8 18i0 é2 SR_EH1 = UPLIT (#ASCIZ‘ SNSNSAN SYMBOL ECC ERRORS:sN’ ), 

3 181: 2 SR_EH2 = UPLIT (SASCIZ‘SNSA ECG Ja 

3 1812 2 SR_EHS = UPLIT (SASCIZ‘SNSAUNIT FIELD N = N = N= N = N = N = N ='), 
3 1813 2 SR_EH4 = UPLIT (SASCIZ‘SNSA NO. ONLY 2 3 4 5 6 7 8’). 
: 1814 2 SR_EMS = UPLIT (@ASCIZ'GNBA---- conse sence seess seewe ccees (seess (feces sees) ocese aN’), 
3 1815 2 SR_EL1 = UPLIT (SASCIZ‘ SNSD38D88D78D78D7' ), 

3 1816 2 SR_EL2 = UPLIT (SASCIZ'SD78D78D78D78D7' ), 

Fy 1817 2 SR_DH1 = UPLIT (SASCIZ‘ SNSA NO. NO. NO.‘), 

$ 1818 2 SR_OH2 = UPLIT (SASCIZ'SNSAUNIT READS WRITES SEEKS MBYTES MBYTES NO. HARD NO. SOFT‘), 
8 1819 2 SR_DH3 = UPLIT (SASCIZ‘SNSA NO. (K=1000) (K=1000) (K=1000) READ WRITTEN ERRORS ERRORS’ ), 
: 1820 2 SR_DH4 = UPLIT (SASCIZ'SNSA---- -------- cee ceee = neces cece ee eee ee cee eeees see eeee SN‘), 
F} 1821 2 SR_DL = UPLIT (SASCIZ‘ SD98D88D108D10' ); 

3 1822 e 

s 1823 2 OWN 

3 4 . ADDR _LO; ! ADDR OF LOW-ORDER FIELD OF I/0 COUNT 

3 

ry 1826 e ROUTINE HI_LO : NOVALUE = 

8 1827 2 

F 1828 2 ts 

8 1829 2 ! THIS ROUTINE IS CALLED FROM THE MAINLINE CODE OF THE REPORT CODING 

8 1830 2 : SECTION WHICH APPEARS BELOW. ITS PURPOSE IS TO PRINT THE HIGH-ORDER 

F 1631 2 : FIELD OF ONE OF THE 1/0 COUNTS IF THE FIELD IS NON-ZERO. OTHERWISE, THE 

8 1832 2 : LOW-ORDER FIELD IS PRINTED. 

8 1833 2 : 

8 1834 2 : IMPLICIT INPUTS: 

3 74 : : ADDR_LO - ADDRESS OF THE LOW-ORDER FIELD OF AN I/0 COUNT 

3 v 

F 1837 2 

8 1838 2 BEGIN 

Fy 1839 3 

s 1840 3 LOCAL 

8 ieee : ADDR _HI; ! ADDR OF HIGH-ORDER FIELD OF I/0 COUNT 

3 1843 : ADDOR_HI = .ADDR_LO + 2; ! GET HIGH-ORDER FIELD ADDRESS 

3 

F 3 


IF ..ADDR_HI EQLU 0 
THEN 


ee a ad cr al a cc ae 


“PRINT” OR BY THE PROGRAM MACRO “DORPT”. 





14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


t 

: THE REPORT CODING SECTION CONTAINS THE “PRINTS” CALLS THAT GENERATE 

: STATISTICAL REPORTS. THIS SECTION IS EXECUTED BY THE OPERATOR COMMAND 
: 


SR_HD = UPLIT (SASCIZ' SNSAseasecasssecscsaneess SUMMARY 
SD28A: — :SD20N'), 












SEQ 0105 
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USER$1: (AZTEC. CZRCOB ICZRCD2.SRC;8 


REPORT s#ebesseseeeseacececasN’ ), 


IF HIGH-ORDER FIELD IS ZERO 
THEN 


cz7Rrcd2 CZRCDBO RC25 DISK EXERCISER 
vo2.0 REPORT CODING SECTION 
3 1846 4 PRINTS (SR_LO, ..ADDR_LO) 
3 1847 3 SE 
3 1848 3 PRINTS (SR_HI, ..ADDR_HI); 
3 1849 3 
8 1850 2 END; 

TITLE 

- IDENT 

-ENABL 
000000 .PSECT 
000000 123 111 116 LSDVTYP:: 

-ASCII 
000003 107 114 105 ASCII 
000006 040 122 103 ASCII 
OOO001L1 062 065 040 ASCII 
000014 120 114 101 ASCII 
000017 124 124 105 ASCII 
000022 122 000 ASCII 
000024 -BLKB 
000026 122 103 062 LSDESC::.ASCII 
000031 065 040 104 -ASCII 
000034 111 123 113 ASCII 
000037 040 105 130 ASCII 
000042 105 122 103 ASCII 
000045 111 123 105 ASCII 
000056 122 000 -ASCII 
000052 -BLKB 
009054 000000C LS$HROLN: : 

. WORD 
000056 000031 GP$i:: .WORD 
000060 0000006 . WORD 
000062 160000 . WORD 
000064 177777 . WORD 
000066 001031 GPs2:: .WORD 
000070 000000G . WORD 
000072 000004 . WORD 
000074 000774 . WORD 
000076 002032 GP$3:: .WORD 
000100 000000G . WORD 
000102 177777 . WORD 
000104 900004 . WORD 
000106 009007 . WORD 
000110 003052 GP$4:: .WORD 
000112 0000006 . WORD 
000114 000377 . WORD 
000116 000000 . WORD 
000120 000375 . WORD 
000122 003120 GP$5:: .WORD 
000124 0009000G . WORD 
000126 100000 . WORD 
000130 000000C $HWDONE: .WORD 
000132 003120 GP$6:: WORD 
000134 009000G . WORD 
000136 100000 . WORD 
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! PRINT LOW-ORDER FIELD 
! OTHERWISE 
! PRINT HIGH-ORDER FIELD ( THOUSANDS) 


! ROUTINE HI_LO 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 


10 
(6) 


CZRCD2 CZRCDBO RC25 DISK EXERCISER 
— 


sCODE$, 


/SIN/ 
/GLE/ 

4 RC/ 
725 / 
/PLA/ 
/TTE/ 
/R/<00> 
2 

/RC2/ 
45 D/ 
/ISK/ 

4 EX/ 
ZERC/ 
/ISE/ 
/R/<00> 
e 


<<<LS$NDHRD-LSHRDLN>/2>-1> 


RO 


-100000 
<< << $LHWDONE - SHWDONE >#400> +4>+40> 
3120 


HWQ6 
-100000 
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000140 091004 $LHWDONE : 

«WORD 1004 
000142 LSNDHRD: : 

-<BLKW il 
000144 000000C LSSFTLN:: 

. WORD <<<L SNDSFT-LSSFTLN>/2>-1> 
000146 000052 GP$7:: .WORD 52 
000150 000000G WORD SWQ1 
000152 177777 WORD -1 
000154 000000 WORD 0 
000156 177777 . WORD -1 
000160 001052 GP$8:: .WORD 1052 
000162 000000G WORD SWQ2 
000164 177777 WORD -1 
000166 000000 WORD 0O 
000170 177777 WORD -1 
000172 004130 GP$9:: .WORD 4130 
000174 000000G -WORD SWQ3 
000176 000001 . WORD 1 
000200 004130 GP$10:: .WORD 4130 
©9202 000000G WORD SWQ4 

204 000002 -WORD 2 

000206 OCO0000C $SW3: WORD <<<< $LSW3- $SW3>*#400>+4>+20> 
000210 0C4130 GP$ii:: .WORD 4130 
000212 000000G -WORD SWQ5 
000214 000004 -WORDB 4 
000216 002052 GP$12:: .WORD 2052 
000220 000000G WORD SWQ6 
000222 177777 WORD -1 
000224 000000 WORD O 
009226 003151 -WORD 3151 
000230 003452 GP$13:: .WORD 3452 
000232 000000G -WORD SWQ7 
000234 177777 WORD -1 
000236 000002 WORD 
000240 003151 WORD 3151 
000242 000001 -WORD 1 
000244 004130 GP$14:: .WORD 4130 
900246 000000G -WORD SWQ8 
000250 000010 WORD 10 
000252 000003 GPSDISP:: 

-WORD 3 
000254 000000G -WORD SWM1 
000256 004130 GP$15:: .WORD 4130 
000260 000000G WORD SWQ9 
000262 000020 -WORD 20 
000264 004130 GP$1i6:: .WORD 4130 
000266 000000G WORD SWQ10 
000270 000040 -WORD 40 
000272 000000C $SW1: . WORD <<<<$LSW1-$SW1>4400>+4>+20> 
000274 004130 GP$i7:: .WORD 4130 
000276 009000G -WORD SWQ1i1 
000300 009100 -WORD 100 
000302 001004 $LSWi: .WORD 1004 
000304 004130 GP$1i8:: .WORD 4130 
000306 009000G -WORD SWQi2 
000310 000200 -WORD 200 


AES eed ts pe eaten ins 
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000312 090000C $SWe: . WORD << << $LSW2-$SW2>4400> +4>+20> 
000314 004052 GP$19:: .WORD 4052 
000316 000000G -WORD SWQ13 
000320 177400 . WORD -400 
000322 000000 -WORD 0O 
000324 000025 -WORD 25 
000326 000000C $SW4: . WORD <<<$LSW4 -$SW4>4400>+4> 
000330 001004 $LSwW2 . WORD 1004 
000332 005052 GP $20 WORD 5052 
000334 000000G WORD SWQ14 
000336 177777 WORD -1 
000340 000001 WORD 1 
000342 000020 -WORD 20 
000344 006222 GP$2i:: .WORD 6222 
000346 000000G -WORD SWQi5 
000350 177777 WORD -1 
000352 000000 WORD 0O 
000354 177777 WORD -1 
000356 000005 -WORD 5 
000360 001004 $LSW3: .WORD 1004 
000362 001004 $LSW4: .WORD 1004 
000364 LS$NDSFT:: 

-BLKW 1 
000366 ADDR.LO:.BLKW 1 
000000 -PSECT $PLIT$, RO, OD 
000000 045 116 045 P.AAA: .ASCII /sNs/ 
000003 101 052 052 -ASCII /Aa«/ 
000006 052 052 052 -ASCII /asa/ 
000011 052 052 052 -ASCII /«aa/ 
000014 052 052 052 -ASCII /aaa/ 
000017 052 052 052 -ASCII /#aa/ 
000022 052 052 052 -ASCII /uaa/ 
000025 052 052 052 -ASCII /aa4/ 
000030 052 040 123 -ASCII /« S/ 
000033 040 125 040 ASCII 7 Us 
000036 115 040 115 -ASCII /M M/ 
000041 040 101 040 -ASCII /A/ 
000044 122 040 131 -ASCII /R Y/ 
000047 040 040 040 ASCTE £. # 
000052 122 040 105 -ASCII /R E/ 
000055 040 120 040 -ASCII /P/ 
000060 117 040 122 -ASCII /0 R/ 
000063 040 124 040 ASCIT FTF 
000066 052 052 952 -ASCII /aaa/ 
000071 052 052 052 -ASCII /aaa/ 
000074 052 052 052 -ASCII /aau/ 
000077 052 052 052 -ASCII /«xau/ 
000102 052 052 052 -ASCII /#44/ 
000105 052 052 052 -ASCII /#aa/ 
000110 052 052 052 -ASCII /&a«/ 
000113 045 116 000 -ASCII /#N/<00> 
000116 045 101 105 P.AAB: .ASCII /#AE/ 
000121 114 101 120 -ASCII /LAP/ 
000124 123 105 104 -ASCII /SED/ 


LC 








SEQ 0109 


CzRCd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 13 
vo2.0 REPORT CODING SECTION 14-Jun-1985 09:32:03 USER$1:[AZTEC.CZRCDBICZRCD2.SRC;8 (6) 
000127 040 124 111 -ASCII / TI/ 
000132 115 105 072 «ASCII /ME:/ 
000135 040 040 045 -ASCII / #/ 
000140 104 062 045 -ASCII /D28/ 
000143 101 072 045 -ASCII /A:%/ 
000146 104 062 045 -ASCII /D2s8/ 
000151 101 972 045 ASCII /A:%/ 
000154 104 062 045 -ASCII /D2%8/ 
000157 116 000 000 «ASCII /N/<00><00> 
000162 045 116 045 P.AAC: .ASCII /#Ns/ 
000165 101 040 040 -ASCII /A / 
000170 040 040 040 ARIE £ # 
000173 040 040 040 -ASCII / / 
000176 1i 117 056 -ASCII /NO./ 
000201 040 040 040 ASIT *# @# 
000204 040 040 040 ASCII ¢ 7 
000207 040 116 117 -ASCII / NO/ 
000212 056 040 040 ASCIT 7. 7 
000215 040 040 040 -ASCII / / 
000220 040 040 040 -ASCII / / 
000223 040 040 040 -ASCII / / 
000226 040 040 040 -ASCII / / 
000231 040 040 040 AMIE Ff F 
000234 040 040 040 AMIE 4 # 
000237 040 040 040 Ris FF 
000242 040 116 117 -ASCII / NO/ 
000245 056 040 040 ARTE ¥. F 
000250 040 040 116 -ASCII / WN/ 
000253 117 056 000 -ASCII /0./<00> 
000256 045 116 045 P.AAD: .ASCII /s#Ns/ 
000261 101 125 116 -ASCII /AUN/ 
000264 111 124 040 -ASCII /IT / 
000267 040 040 122 -ASCII / R/ 
000272 105 101 104 -ASCII /EAD/ 
000275 123 040 040 -ASCII /S / 
000300 040 040 040 Ait, Ft FF 
000303 127 122 111 ASCII /WRI/ 
000306 124 105 123 -ASCII /TES/ 
000311 040 040 040 A Ff OF 
000314 115 102 131 -ASCII /MBY/ 
000317 124 105 123 sASCIZT 7TES/ 
000322 040 040 115 ASCII / M/ 
000325 102 131 124 -ASCII /BYT/ 
000330 105 123 040 sASCIZT FES 7 
000233 040 040 040 mois FOF 
000336 110 101 122 -ASCII /HAR/ 
000341 104 040 040 -ASCII /D / 
000344 040 105 122 «ASCII / ER/ 
000347 122 117 122 -ASCII /ROR/ 
000352 000 000 «ASCII <00><00> 
000354 045 116 045 P.AAE: .ASCII /sNe/ 
000357 101 040 116 -ASCII /A N/ 
000362 117 056 040 -ASCIZ /0, 7 
000365 040 050 113 «ASCII / (K/ 
000370 075 061 060 -ASCII /=10/ 
000373 060 060 051 -ASCII /00)/ 
000376 04¢ 040 050 -ASCII / (/ 








czrcd2 
vo2.0 


000401 
000404 
000407 
000412 
000415 
000420 
000423 


CZRCDOBO RC25 DISK EXERCISER 


REPORT CODING SECTION 


/GS/<00> 
/8N8/ 
/A--/ 
f-- / 

4 --/ 
/---/ 
/---/ 

f «fF 
4---/ 
/---/ 

va ¥£ 
f---/ 
f---/ 

4 -/ 
J---/ 
/---/ 

ey =f 
f---/ 
/-- / 

/ --/ 
/---/ 
/#N/<00> 
<Q0> 
/8N8/ 
/03/<00> 
/%09/ 
486A / 
<00><00> 
/%09/ 
/8AK/ 
<00><00> 
4%09/ 
/%08/ 
/8D9/ 
/%D07/ 
<00><00> 
/%N8/ 
/NSA/ 

/N S/ 
/YMB/ 
/OL / 
/ECC/ 

/ ER/ 
/ROR/ 

4S :%/ 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


VAX-11 Bliss-16 V4.0-579 
USER$1:[AZTEC.CZRCOBICZRCD2.SRC;8 


ee ere. 


SEQ 0110 
P 





SEQ 0111 


czRCD2 CZRCDBO RC25 DISK EXERCISER teeny 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 15 
vo2.0 REPORT CODING SECTION 14-Jun-19 Toe USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 (6) 
000647 116 000 000 ASCII /N/<00><00> 
000652 045 116 045 P.AAL: .ASCII /sNs/ 
000655 101 040 040 -ASCII /A / 
000660 040 040 040 -ASCII / / 
000663 040 040 105 -ASCII / €E/ 
000666 103 103 000 -ASCII /CC/<00> 
000671 000 «ASCII <00> 
000672 045 116 045 P.AAM: .ASCII /sNs/ 
000675 101 125 116 -ASCII /AUN/ 
000700 11i 124 040 -ASCII /IT / 
000703 040 106 111 -ASCII / FI/ 
000706 105 114 104 ASCII /ELD/ 
000711 040 040 040 ASCII / / 
000714 116 040 075 -ASCII /N =/ 
000717 040 040 040 ASCII / 7# 
000722 040 116 040 -ASCII /N/ 
000725 075 040 040 eASCII /= / 
000730 040 040 116 -ASCII / WN/ 
000733 040 075 040 ASCII 427 
000736 040 040 040 ASCII / 7 
000741 116 040 075 -ASCII /N =/ 
000744 040 040 040 AMIE £ 7# 
000747 040 116 040 ASIZT 2 aSs 
000752 075 040 040 -ASCII /= / 
000755 040 040 116 -ASCII / N/ 
000760 040 075 040 -ASCII / = / 
000763 040 040 040 -ASCII / / 
000766 116 040 075 -ASCII /N =/ 
000771 040 040 040 ASIII / @# 
000774 040 116 040 -ASCII /N/ 
000777 075 000 000 -ASCII /=/<00><00> 
001002 045 116 045 P.AAN: .ASCII /sNs/ 
001005 101 040 116 -ASCII /A N/ 
001010 117 056 040 -ASCII /0. / 
001013 040 040 117 -ASCII / O/ 
001016 116 114 131 «ASCII /NLY/ 
001021 040 040 040 -ASCII / / 
001024 040 061 040 -ASCII /1/ 
001027 040 040 040 ASIZ ¢# # 
001032 040 040 062 -ASCII / 2/ 
001035 040 040 040 ASCII / / 
001040 040 040 040 ART * # 
001043 063 040 040 -ASCII /3 / 
001046 040 040 040 «ASCII / f/f 
001051 040 064 040 -ASCII / 4/7 
001054 040 040 040 -ASCII / / 
001057 040 040 065 -ASCII / 5/ 
001062 040 040 040 ASTT £  «# 
0012065 040 040 040 -ASCII / / 
001070 066 040 040 -ASCII /6 / 
001073 040 040 040 -ASCII / / 
001076 040 067 040 ASCII #77 
001101 040 040 040 -ASCII / / 
001104 040 040 070 -ASCII / 8/ 
001107 000 -ASCII <00> 
001110 045 116 045 P.AAQ: .ASCII /sNs/ 
001113 101 055 055 -ASCII /A--/ 








SEQ 0112 


CzRCD2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 REFORT CODING SECTION 14-Jun-1985 09:32:03 USER$1:[AZTEC.CZRCOBICZRCD2.SRC;8 (6) 
001116 oss 0s5 040 -ASCII /-- / 
001121 040 os5 055 -ASCII / --/ 
001124 oss 055 os5 «ASCII /---/ 
001127 040 040 oss -ASCII / -/ 
001132 055 055 055 ASCII /---/ 
001135 055 040 040 -ASCII /- / 
001140 oss 055 os5 ASCII /---/ 
001143 os5 055 040 -ASCII /-- / 
001146 C40 055 055 -ASCII / --/ 
001151 oss oss 055 «ASCII /---/ 
001154 040 040 055 -ASCII / -/ 
001157 055 055 055 -ASCII /---/ 
001162 055 040 040 ASCII /- 7/ 
001165 055 055 055 -ASCII /---/ 
001170 oss 055 040 ASCII /-- / 
001173 040 055 055 «ASCII / --/ 
001176 oSs5 055 055 -ASCII /---/ 
001201 040 040 055 -ASCII / -/ 
001204 055 oss 055 -ASCII /---/ 
001207 S55 040 040 -ASCII /- / 
001212 os5 055 055 ASCII /---/ 
001215 0s5 055 045 -ASCII /--%/ 
001220 116 000 -ASCII /N/<00> 
001222 045 116 045 P.AAP: .ASCII /sN#/ , 
001225 104 063 045 -ASCII /D38/ 
001230 104 070 045 -ASCII /D08%/ 
001233 104 067 045 -ASCII /D7#/ 
001236 104 067 045 -ASCII /D7#/ 
001241 104 067 000 -ASCII /07/<00> 
001244 045 104 067 P.AAQ: .ASCII /#D7/ 
001247 045 104 067 «ASCII /#D7/ 
001252 045 104 067 -ASCII /#D7/ 
001255 045 104 067 -ASCII /#D7/ 
001260 045 104 067 -ASCII /#D7/ 
001263 000 -ASCII <00> 
001264 045 116 045 P.AAR: .ASCII /s#Ns/ 
001267 101 040 040 -ASCII /A / 
001272 040 040 040 -ASCII / / 
001275 040 040 040 ASCII / @ 
001300 116 117 056 «ASCII /NO./ 
001303 040 040 040 -ASCII / / 
001306 040 040 040 ASCII / 7 
001311 040 116 117 -ASCII / NO/ 
001314 056 040 040 -ASCII /, / 
001317 040 040 040 -ASCII / / 
001322 040 040 116 -ASCII / N/ 
001325 117 056 000 -ASCII /0./<00> 
001330 045 116 045 P.AAS: .ASCII /s#Ns/ 
001333 101 125 116 ASCII /AUN/ 
001336 111 124 040 -ASCII /IT / 
001341 040 040 122 -ASCII / R/ 
001344 105 101 104 -ASCII /EAD/ 
001347 123 040 040 -ASCII /S / 
001352 040 040 040 ASCII # # 
001355 127 122 111 -ASCII /WRI/ 
001360 124 105 123 ASCII /TES/ 
001363 040 040 040 -ASCII / / 








SEQ 0113 


CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 17 
vo2.0 REPORT CODING SECTION 14-Jun-1985 09:32:03 USER $1: (AZTEC. CZRCOBICZRCD2.SRC;8 (6) 
001366 040 123 105 -ASCII / SE/ 
001371 105 113 123 ASCII /EKS/ 
001374 040 040 040 -ASCII / / 
001377 040 115 102 -ASCII / MB/ 
001402 131 124 105 -ASCII /YTE/ 
001405 123 040 040 -ASCII /S / 
001410 115 102 131 -ASCII /MBY/ 
001413 124 105 123 ASCII /TES/ 
001416 040 040 040 -ASCII / / 
001421 116 117 056 -ASCII /NO./ 
001424 040 110 101 «ASCII / HA/ 
001427 122 104 040 -ASCII /RD / 
001432 040 116 117 -ASCII / NO/ 
001435 056 040 123 «ASCII /. S/ 
001440 117 106 124 -ASCII /OFT/ 
001443 000 -ASCII <00> 
001444 045 116 045 P.AAT: .ASCII /sNs/ 
001447 101 040 116 ASCII /A N/ 
001452 117 056 040 -ASCII /0. / 
001455 040 050 113 «ASCII / (K/ 
001460 075 061 060 -ASCII /=10/ 
001463 060 060 051 -ASCII /00)/ 
001466 040 040 050 -ASCII / (/ 
001471 113 075 061 -ASCII /K=1/ 
001474 060 060 060 -ASCII /000/ 
001477 051 040 040 -ASCII /) / 
001502 050 113 075 ASCII /(K=/ 
001505 061 060 060 -ASCII /100/ 
001510 060 051 040 -ASCII /0) / 
001513 040 040 122 -ASCII / R/ 
001516 105 101 104 -ASCII /EAD/ 
001521 040 040 040 -ASCIZT / 7 
001524 127 122 111 -ASCII /WRI/ 
001527 124 124 105 -ASCII /TTE/ 
001532 116 040 040 -ASCII /N / 
001535 040 105 122 -ASCII / ER/ “ 
001540 122 117 122 -ASCII /ROR/ 
001543 123 040 040 -ASCII /S / 
001546 040 040 105 -ASCII / E/ 
001551 122 122 117 -ASCII /RRO/ 
001554 122 123 000 «ASCII /RS/<00> 
001557 000 -ASCII <00> 
001560 045 116 045 P.AAU: .ASCII /sNs/ 
001563 101 055 055 ASCII /A--/ 
001566 055 055 040 -ASCII /-- / 
001571 040 055 055 -ASCII / --/ 
001574 055 055 055 -ASCII /---/ 
001577 055 055 055 -ASCII /---/ 
00602 040 040 055 ASCII 4 -/ 
001605 O55 055 055 -ASCII /---/ 
001610 055 055 055 ASCII /---/ 
001613 055 040 040 -ASCII /- / 
001616 055 055 055 -ASCII /---/ 
001621 055 055 055 ASCII /---/ 
001624 055 055 040 -ASCII /-- / 
001627 040 055 055 -ASCII / --/ 
001632 055 055 055 -ASCII /---/ 











SEQ 0114 


CZRCO2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 REPORT CODING SECTION 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCOB JCZRCD2. SRC; 8 (6) 
001635 055 040 040 -ASCII /- / 

001640 oss 055 oss ASCII /---/ 

001643 055 oss 055 -ASCII /---/ 

001646 oss 040 040 -ASCII /- / 

001651 oss oss 055 ASCII /---/ 

001654 055 0s5 055 -ASCII /---/ 

001657 os5 055 040 -ASCII /-- / 

001662 040 055 055 ASCII / --/ 

001665 055 os5 055 -ASCII /---/ 

001670 055 os5 055 -ASCII /---/ 

001673 045 116 000 -ASCII /#N/<00> 

001676 045 104 071 P.AAV: .ASCII /#D9/ 

001701 045 104 070 -ASCII /#08/ 

001704 045 104 061 -ASCII /#D1i/ 

001707 060 045 104 -ASCII /08D/ 

001712 061 060 000 -ASCII /10/<00> 

001715 000 -ASCII <00> 


-GLOBL PATCH, CPT, CST, CST.ADDR, DCT 
-GLOBL ODCT.ADDR, RC25.ADDR, IRC25.ADDR 
-GLOBL OM.COMM, DMC.ADDR, RP.SAVE, RPS.X1 
-GLOBL RPS.X2, OUTC.LIST, OUTC.TIMR, OCL.X1 
-GLOBL OCL.X2, TALLY, T.ADDR, MSCP.ENV 
-GLOBL ENV.USE, RETPKT, RP.USE, RP. INDX 
-GLOBL RP.ADDR, BUFF.DESC, BUFF.OWN, IODQ 
-GLOBL IODQ.IN, I0DQ.0UT, ENTRY.REASON 
-GLOBL T.FLAG, EOP.FLAG, MEM.MGMT, IIP.FLAG 
-GLOBL CCTLR, CPLAT, CUOFF, CTLR.CNT 

-GLOBL OUR, QIO, MEM.SIZE, FREE.MEM.ADOR 
-GLOBL BUFF.SIZE, NUM.BUFF, CLK.TYPE 

-GLOBL CLK.HERTZ, CLK.CSR, CLK.VECTOR 
-GLOBL HOURS, MINUTES, SECONDS, TICKS 
-GLOBL ST.CODE, SB.CODE, STEP, OF .RC 

-GLOBL SA.REG, NEX, CRN, HWQ1, HWQ2, HWQ3 
-GLOBL HWQ4, HWQ5, HWQ6, SWQ1, SWQ2, SWQ3 
-GLOBL SWQ4, SWQS, SWQ6, SWQ7, SWQ8, SWQ9 
-GLOBL SWQ10, SWQ11, SWQ12, SWQ13, SWQ14 
-GLOBL SWQ1S, SWM1, MSG.01, MSG.07, CER.O1 
-GLOBL CER. 02, CER.03, DUM. 00, DUM. UC 
-GLOBL DUM.CE, DUM.IE, DUM.HE, DUM.UE 
-GLOBL €GS.01, EGS.02, EBS.01, EBD.10 
-GLOBL £680.12, E6D.13, EBD.14, EBD.15 
-GLOBL £80.16, EBD.17, £60.18, EBD.19 
-GLOBL €BD.20, E8D.21, EBD.22, EBH.31 
-GLOBL €EBH.32, EBH.34, EBH.35, EBH.36 
-GLOBL €EBH.37, EBH.38, EBH.39, EBH.40 
-GLOBL EBH.41, EBH.42, EBH.43, EX.SA 

-GLOBL EX.CRN, EX.SC, EX.DSC, EX.SB, EX.CMD 
-GLOBL EX.SCC, EX.ONL, EX. ESP, EX. SND 
-GLOBL EX.RD, EX.WRT, EX.CMP, EX.BB, EX.LBN 
-GLOBL EX.CBC, EX.BC, EX.BD, EX.03, ETIME 
-GLOBL PLATT, CRLF, SMP. ERROR, SWP . XFER 
-GLOBL SWP.STRACK, SWP.ETRACK, SWP.FLAGS 
-GLOBL LSLUN, LSUNIT 








—— 





CZRCOBO RC25 DISK EXERCISER 


REPORT CODING SECTION 


BIT1S== 
BIT14== 
BIT13== 
BIT12== 
BIT11== 
BIT10== 
BITO9== 
BITO8== 
BITO7== 
BITO6== 
BITOS== 
BITO04== 
BITO3== 
BITO2== 
BITO1== 
BITOO== 
BIT9== 
BIT8== 
BIT7== 
BIT6== 
BITS== 
BIT4== 
BIT3== 
BIT2== 
BITi== 
BITO== 
EF .START== 


EF .RESTART== 
EF .CONTINUE== 


EF .NEW== 
EF .PWR== 
PRIO7== 
PRI06== 
PRIOS== 
PRIO04== 
PRIO3== 
PRIO2== 
PRIO1== 
PRIOO== 
EVL== 
LOT== 
ADR== 
IDU== 
ISR== 
UAM== 
BOE== 
PNT== 
PRI== 
IXE== 
IBE== 
IER== 
LOE== 
HOE== 
L$HARD== 
L$SOFT== 
SR .HD= 
SR.ET= 


14-Jun-1985 09: 
14-Jun-1985 09: 


4000 
10000 
20000 
40000 
-100000 
L$HRDOLN+2 
L$SFTLN+2 
P.AAA 
P.AAB 


3 
3 


6: 
2: 


36 
03 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB ICZRCD2.SRC;8 


SEQ 0115 
P 





19 
(6) 










SEQ 0116 





CZRCD2 CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 20 
vo2.0 REPORT CODING SECTION 14-Jun-1985 09:32:03 USER$1:([AZTEC.CZRCDB JCZRCD2.SRC;8 (6) 
090162’ SR .MH1= P.AAC 
000256’ SR .MH2= P.AAD 
000354' SR .MH3= P.AAE 
000450’ SR .MH4= P.AAF 
000550’ SR .UN= P.AAG 
000556’ SR.LO= P.AAH 
000566‘ SR .HI= P.AAI 
000576‘ SR .ML= P.AAJ 
000614' SR .EH1= P.AAK 
000652: SR .EH2= P.AAL 
000672‘ SR .EH3= P.AAM 
001002' SR .EH4= P.AAN 
001110' SR .EHS= P.AAO 
001222' SR.EL1= P.AAP 
001244: SR.EL2= P.AAQ 
001264’ SR .OH1= P.AAR 
001330' SR .DH2= P.AAS 
001444: SR .DH3= P.AAT 
001560’ SR .DH4= P.AAU 
001676' SR.DL= P.AAV 
-SBTTL HI.LO REPORT CODING SECTION 
000370 -PSECT $sCODE$, RO 
000000 013700 000366' HI.LO: MOV ADDR .LO,RO ; *,ADOR.HI 1843 
000004 062700 000002 ADD #2 ,R0 ; *,ADDR.HI 
000010 005710 TST CRO) ; ADOR.HI 1844 
000012 001011 BNE i$ 
000014 017746 177756 MOV @ADDR.LO, -(SP) 3 1846 
000020 012746 000556’ MOV #SR.LO,-CSP) 
000024 012746 000002 MOV #2,-(SP) 
000030 010600 MOV SP RO ; SP, 
000032 104416 TRAP 16 
000034 000407 BR 2$ : 1844 
000036 011046 1$: MOV (RO), -CSP) ; ADOR.HI,« 1848 
000040 012746 000566’ MOV @SR.HI,-(SP) : 
000044 012746 000002 MOV #2,-(SP) 
000050 010600 MOV SP ,RO 3; SP,«* 
000052 104416 TRAP 16 
000054 062706 000006 2s: ADD #6 ,SP PF 1838 
009060 000207 RTS PC F 1826 
; Routine Size: 25 words, Routine Base: $sCODE$ + 0370 
s Maximum stack depth per invocation: 5 words 
3 1851 2 
; 1852 2 fersereseeenent! REPORT CODING SECTION - MAINLINE CODE !!!!tireteteeeeeeenenens 
F 1853 2 
F 1854 2 LOCAL 
$ ea : TA : REF BLOCK [TALLY_LEN) FIELD (T_FIELDS); ! ADDRESS OF A UNIT'S TALLY BLOCK 
; 
3 1857 2 PRINTS (SR_HD); ! SUMMARY REPORT HEADER 
; 1858 2 PRINTS (SR_ET, .HOURS, .MINUTES, .SECONDS); ! ELAPSED TIME 
F 1859 3 IF BIT_TST (SWP_FLAGS, SWF_DM) ! IF OM EXERCISER IS BEING RUN 
3 1860 2 THEN ! THEN 





SEQ 0117 
CZRC02 CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 21 
vo2.0 REPORT CODING SECTION 14-Jun-1985 09:32:03 USER $1: [AZTEC.CZRCOB JCZRCD2.SRC;8 (6) 
3 1861 3 BEGIN 
’ 1862 3 
3 1863 3 PRINTS (SR_DH1); ! PRINT HEADER FOR DM EXERCISER STATS 
3 1864 3 PRINTS (SR_DH2); 
F 1865 3 PRINTS (SR_DH3); 
’ 1866 3 PRINTS (SR_DH4); 
8 1867 3 INCR UNIT FROM O TO (.LSUNIT - 1) DO ! FOR EACH UNIT 
3 1868 4 BEGIN 
F 1869 4 
F 1870 4 TA = TALLY + (.UNIT * TALLY_LEN @ 2); ! CALCULATE UNIT‘S TALLY BLOCK ADDR 
8 coe : PRINTS (SR_UN, .UNIT); ! PRINT UNIT NUMBER 
3 
3 1873 4 ADDR_LO = TA [READ_LO); ! SET LOW-ORDER ADOR OF READ COUNT 
3 1874 4 HI_LO (); ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
F 1875 4 ADDR_LO = .ADDR_LO + 4; ! ADVANCE TO LOW-ORDER ADOR OF WRITE COUNT 
’ 1876 4 HI_LO (); ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
3 1877 4 ADDR_LO = .ADDR_LO + 4; ! ADVANCE TO LOW-ORDER ADDR OF SEEK COUNT 
3 oor ; HI_LO (); ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
3 
3 oy ; PRINTS (SR_DL, .TA [MB_READ), .TA [(MB_WRIT], .TA (ER_HRD], .TA CER_SFT)); 
3 
3 1882 3 END; ! UNIT LOOP 
3 1883 3 
3 1884 3 END 
; 1885 2 ELSE ! ELSE - MULTI-DRIVE SUBTEST IS BEING RUN 
3 1886 3 BEGIN 
F 1887 3 
3 1888 3 PRINTS (SR_MH1); ! PRINT HEADER FOR MULTI-DRIVE 
3 1889 3 PRINTS (SR_MH2); H SUBTEST BASIC STATS 
’ 1890 3 PRINTS (SR_MH3); 
3 1891 3 PRINTS (SR_MH4); 
F 1892 3 INCR UNIT FROM 0 TO (.L$UNIT - 1) DO ! FOR EACH UNIT 
3 1893 4 BEGIN 
F 1894 4 
3 1895 4 TA = TALLY + (.UNIT * TALLY_LEN #* 2); $§ CALCULATE UNIT‘S TALLY BLOCK ADDR 
$ oe : PRINTS (SR_UN, .UNIT); ! PRINT UNIT NUMBER 
3 
3 1898 4 ADDR_LO = TA [READ_LO); ! SET LOW-ORDER ADOR OF READ COUNT 
3 1899 4 HI_LO (); ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
; 1900 4 ADDR_LO = .ADDR_LO + 4; ! ADVANCE TO LOW-ORDER ADDR OF WRITE COUNT 
; yo! : HI_LO (); ! PRINT EITHER LOW- OR HIGH-ORDER FIELD 
3 
3 oes : PRINTS (SR_ML, .TA [MB_READ), .TA (MB_WRIT), .TA [ER_HRD), .TA [ER_LOG)); 
3 1904 
3 1905 3 END; ! UNIT LOOP 
3 1906 3 
3 1907 3 PRINTS (SR_EH1); ! PRINT HEADER FOR ECC ERROR STATS 
F 1908 3 PRINTS (SR_EH2); 
3 1909 3 PRINTS (SR_EH3); 
3 1910 3 PRINTS (SR_EH4); 
3 1911 3 PRINTS (SR_EHS); 
3 1912 3 INCR UNIT FROM O TO (.LSUNIT - 1) DO ! FOR EACH UNIT 
F 1913 4 BEGIN 
F 1914 4 
3 1915 4 TA = TALLY + (.UNIT # TALLY_LEN @ 2); ! CALCULATE UNIT‘S TALLY BLOCK ADDR 
3 1916 4 PRINTS (SR_EL1, .UNIT, .TA [ECC_ONLY), .TA ([ECC_1), .TA (ECC_2), .TA (ECC_3)); 
3 1917 4 PRINTS (SR_EL2, .TA [ECC_4), .TA ([ECC_S), .TA [ECC_6), .TA (ECC_7), .TA (ECC_8)); 
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Fy 1918 4 
3 1919 3 END; ! UNIT LOOP 
Fy 1920 3 
3 1921 2 END; 
’ 1922 2 
3 1923 2 PRINTS (CRLF); ! PRINT <CR><LF> 
3 1924 2 
3 1925 1 ENDRPT; 

-SBTTL LRPT REPORT CODING SECTION 
000000 004137 000000G LRPT: JSR R1, $SAVE3 3 
000004 012746 000000' MOV #SR.HD,-(SP) $ 
000010 012746 000001 MOV #1,-(SP) 
000014 010600 MOV SP ,.RO : SP,«* 
000016 104416 TRAP 16 
000020 013716 000000G MOV SECONDS, (SP) 3 
000024 013746 000000G MOV MINUTES, -( SP) 
000030 013746 000000G MOV HOURS, -( SP) 
000034 012746 000116‘ MOV #SR.ET,-(SP) 
000040 012746 000004 MOV 04,-(SP) 
000044 010600 MOV SP ,RO 3; SP,« 
000046 104416 TRAP 16 
000050 122737 000002 000000G BITB #2,SWP.FLAGS ’ 
000056 001516 BEQ 3$ 
000060 012716 001264’ MOV #SR.DH1, (SP) 3 
000064 012746 000001 MOV #1,-(SP) 
000070 010600 MOV SP ,RO 3; SP,«* 
00007, 104416 TRAP 16 
000074 012716 001330' MOV #SR.DH2, (SP) F 
009100 0127 000001 MOV #1,-(SP) 
000104 010600 MOV SP ,RO ; SP,« 
000106 104416 TRAP 16 
000110 012716 001444° MOV @SR.DH3, (SP) 3 
000114 012746 900001 MOV #1,-(SP) 
000120 010600 MOV SP ,RO ; SP,* 
000122 104416 TRAP 16 
000124 012716 001560’ MOV #SR.DH4, (SP) F 
000130 012746 000001 MOV #1,-(SP) 
000134 010600 MOV SP ,RO ; SP, 
000136 104416 TRAP 16 
000140 013703 000000G MOV LSUNIT,R3 ; 
000144 005002 CLR R2 ; UNIT 
000146 9000456 BR 2s 
000150 019216 1$: MOV R2,(SP) ; UNIT,«* 
000152 012746 900060 MOV #60, -( SP) 
000156 004737 000000G JSR PC,.BLSMUL 
000162 062700 000000G ADD #TALLY,RO 
000166 010001 MOV RO,R1 ; *,7A 
000170 010216 MOV R2,(SP) ; UNIT,* 
000172 012746 000550’ MOV #SR.UN, -(SP) 
900176 012746 000002 MOV #2,-(SP) 
900202 019600 MOV SP ,RO ; SP,«@ 
000204 104416 TRAP 16 
000206 010137 000366’ MOV R1,ADDR.LO ; TA,* 
000212 004737 000370' JSR PC,HI.LO 3 
000215 062737 000004 000366‘ ADD #4,ADDR.LO F 





CzrCd2 CZRCOBO RC25 DISK EXERCISER 
vo2.0 REPORT CODING SECTION 


000224 004737 000370° 
000230 062737 000004 
000236 004737 000370° 
000242 016116 000034 
000246 016146 000030 
000252 016146 000026 
000256 016146 000020 
000262 912746 001676: 
000266 012746 000005 


000276 062706 000020 


000310 000137 001444: 
000314 012716 000162° 
000320 012746 000001 


000330 012716 000256' 
000334 012746 000001 


000344 012716 000354: 
000350 012746 000001 


000360 012716 000450° 
000364 012746 000001 


000374 013703 000000G 


000406 012746 000060 
000412 004737 000000G 
000416 062700 000000G 


000426 012746 000550’ 
000422 012746 000002 


000442 010137 000366’ 
000446 004737 000370° 
000452 062737 000004 
000460 004737 000370’ 
000464 016116 000032 
000470 016146 000030 
000474 016146 000026 
000500 016146 000020 
000504 012746 000576’ 
000519 012746 000005 





000366 ' 


000366 


2s: 


38: 


4$: 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


PC,HI.LO 

4, ADDR.LO 
PC,HI.LO 
34(R1), CSP) 
30(R1),-SP) 
26(R1),-CSP) 


@SR.MH1, (SP) 
#1,-(SP) 
SP ,RO 


16 

@SR.MH2, (SP) 
#1,-(SP) 

SP ,RO 


16 

#SR.MH3, (SP) 
#1,-(SP) 
SP,RO 


16 

#SR.MH4, (SP) 
#1,-(SP) 

SP ,RO 

16 
LSUNIT,R3 
R2 


5$ 

R2,(SP) 
#60, -( SP) 
PC,.BLSMUL 
@TALLY,RO 
RO,R1 
R2,(SP) 
#SR.UN, -(SP) 
2,-(SP) 

SP ,RO 

16 
R1i,ADDOR.LO 
PC,HI.LO 
#4,ADDR.LO 
PC,.HI.LO 
32(R1),(SP) 
30(R1),-C(SP) 
26(R1),-CSP) 
20(R1),-CSP) 
#SR.ML, -(SP) 
#5,-CSP) 

SP ,RO 

16 
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4(TA),«# 
a(TA),« 
a(TA),«# 
#(TA),«@ 


SP ,* 
UNIT 


UNIT, # 


SP,« 


SP ,# 


SP ,« 


SP ,« 


UNIT 
UNIT ,# 


*,TA 
UNIT,#@ 
SP ,* 
TA,« 


a(TA),«@ 
a(TA),«@ 
*(TA),« 
a(TA),«@ 


SP ,* 
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1876 
1877 
1878 
1880 
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000520 062706 000020 AOD #20, SP i 1893 
000524 005202 INC R2 ; UNIT 1892 
000526 020203 S$: CMP R2,R3 ; UNIT,« 
000530 002725 BLT 43 

000532 012716 000614’ MOV #SR.EH1, (SP) ; 1907 
000536 012746 000001 MOV #1,-(SP) 

000542 010600 MOV SP ,RO : SP,« 
000544 104416 TRAP 16 

000546 012716 000652’ MOV #SR.EH2, (SP) ; 

000552 012746 000001 MOV #1,-(SP) 

000556 010600 MOV SP ,RO ; SP,« 
000560 104416 TRAP 16 

000562 012716 000672’ MOV #SR.EH3, (SP) ; 

000566 012746 000001 MOV #1,-(SP) 

000572 010600 MOV SP ,RO ; SP,# 
000574 104416 TRAP 16 

000576 012716 001002’ MOV @SR.EH4, (SP) ; 

000602 012746 000001 MOV #1,-CSP) 

000606 010600 MOV SP ,RO ; SP,« 
000610 104416 TRAP 16 

000612 012716 001110° MOV #SR.EHS, (SP) 3 

000616 012746 000001 MOV #1,-CSP) 

000622 010600 MOV SP RO ; SP,«# 
000624 104416 TRAP 16 

000626 013703 000000G MOV LSUNIT,R3 ; 

000632 005002 CLR R2 ; UNIT 
000634 000452 BR 7$ 

000636 010216 6$: MOV R2,(SP) ; UNIT,«# 
000640 012746 000060 MOV #60, -(SP) 

000644 004737 000000G JSR PC ,BL$MUL 

009650 062700 000000G ADD #TALLY ,RO 

000654 010001 MOV RO,R1 ; *#,TA 
000656 016116 000042 MOV 42(R1),(SP) ; #(TA),* 
000662 016146 000040 MOV 40(R1),-CSP) ; *(TA),* 
000666 016146 000036 MOV 36(R1),-CSP) 3 #(TA),* 
000672 016146 000056 MOV 56(R1),-CSP) 3; #(TA),* 
000676 010246 MOV R2,-(SP) ; UNIT,# 
000700 012746 001222‘ MOV #SR.EL1,-CSP) 

000704 012746 000006 MOV #6,-(SP) 

000710 010600 MOV SP ,RO ; SP,* 
000712 104416 TRAP 16 

000714 016116 000054 MOV 54(R1),(CSP) ; *(TA),* 
000720 016146 000052 MOV S2(R1),-CSP) 3 #(TA),* 
000724 016146 000050 MOV S0(R1),-CSP) ; #(TA),# 
000730 015146 000046 MOV 46(R1),-CSP) ; #(TA),* 
000734 016146 000044 MOV 44(R1),-CSP) ; #(TA),« 
000740 012746 001244' MOV #SR.EL2, -(SP) 

000744 012746 000006 MOV #6,-(SP) 

000750 010600 MOV SP ,RO ; SP,* 
000752 104416 TRAP 16 

000754 062706 000032 ADD #32,SP ; 

000760 005202 INC R2 ; UNIT 
000762 020203 7$: CMP R2,R3 ; UNIT,* 
000764 002724 BLT 6$ 

000766 062706 000012 ADD #12,SP F 

000772 012716 000000G 8$: MOV #CRLF, (CSP) F 

000776 012746 000001 MOV #1,-(SP) 


Sei ate ta ick RENO car NA fer ar oe 
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001002 
001004 
001006 
001012 


; Routine Size: 


010600 
104416 
062706 
000207 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 
REPORT CODING SECTION 14-Jun-1985 09:32:03 
MOV SP ,RO 
TRAP 16 
000026 ADD #26,SP 
RTS PC 
262 words, Routine Base: sCODE$ + 0452 


; Maximum stack depth per invocation: 34 words 


000000 004737 


000004 


104425 


000006 000207 


; Routine Size: 


-SBTTL LS$RPT REPORT CODING SECTION 
000452 LSRPT:: JSR PC ,LRPT 

TRAP 25 

RTS PC 
4 words, Routine Base: ‘$sCODE$ + 1466 


; Maximum stack depth per invocation: 2 words 


SEQ 0121 
Page 25 
USER $1: (AZTEC. CZRCOB JCZRCD2.SRC;8 (6) 


VAX-11 Bliss-16 V4.0-579 


; SP,« 
3 1788 
H 1923 


CZRCD2 
vo2.0 


1926 
1927 
1928 
1929 


SSS SSS SSH SSS SHES HHSHHSHHSSESHERHSHHBHSHSHSHSSESSEHEHHESHESHEHEH EH OO GG © @& 
fm 
Oo 
ui 
tf 
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SSBTTL ‘INITIALIZE SECTION’ 


> 


THE INITIALIZE CODE IS EXECUTED UNDER FIVE CONDITIONS. THERE ARE 
SUPERVISOR EVENT FLAGS THAT ARE USED TO LET THE DIAGNOSTIC KNOW UNDER 
WHICH CONDITION THE EXECUTION IS TAKING PLACE. THE EVENT FLAGS ARE 

READ USING THE “READEF” MACRO. THE CONDITIONS UNDER WHICH THE INIT CODE 
IS EXECUTED AND THE CORRRESPONDING EVENT FLAGS ARE: 


START COMMAND EF .START 
RESTART COMMAND EF .RESTART 
CONTINUE COMMAND EF .CONTINUE 
POWERDOWN/POWERUP EF .PWR 


NEW PASS EF .NEW 
EXAMPLE OF EVENT FLAG USE: 

IF READEFCEF.START) THEN START_FLAG = 1; 
DURING THE INIT CODE, THE “GPHARD” MACRO IS USED TO OBTAIN P-TABLE 
INFORMATION FOR ALL DEVICES. THE NUMBER OF UNITS AVAILABLE IS IN THE 
HEADER WORD “LSUNIT”. 


BGNINIT; 


LOCAL 
FLAG1 : BYTE, 
FLAG2 : BYTE, 
DELAY_MULT : WORD, 


CLK_ADR, 

HWPT_REF : REF BLOCK [HWPT_LEN, WORD] FIELD (HWP_FIELDS); 
SETPRI (PRIO7); ! PRIORITY 7 - NO INTERRUPTS ALLOWED DURING INIT 
IF READEF CEF_NEW) ! IS THIS A NEW PASS? CASK NEW_PASS 
THEN t FIRST IN CASE MULTI; .E FLAGS ARE 

ENTRY_REASON = NEW_PASS; ’ SET, E.G., START AND NEW_PASS) 
IF READEF CEF_CONTINUE) ! IS THIS A CONTINUE? 
HEN 

ENTRY_REASON = CONT; 
IF READEF CEF_PWR) ! IS THIS A POWER FAIL? 
THEN 

BEGIN 

ENTRY_REASON = PWR_FAIL; 

IF MANUAL : 4 ATTENDED 

' 


HEN 
“POWER DELAY - WAITING” 
WAIT APPROX. 60 SECGNDS 


EN 
PRINTF (MSG_01); 
INCR COUNT FROM O TO 60 DO 
BEGIN 


DELAY_MULT = 400; ! Changed from 333 to 400 for 11/84 cache 
DELAY (.DELAY_MULT); 
BREAK; ! BREAK FOR ACT 
END; 
END; 


IF READEF (EF_RESTART) IS THIS A RESTART? 


rr 
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3 1983 2 THEN 
3 1984 2 ENTRY_REASON = RESTART; 
3 1985 2 
3 1986 2 IF READEF CEF_START) ! IS THIS A START? 
3 1987 2 THEN 
3 1988 3 BEGIN 
8 1989 3 ENTRY_REASON = START; 
3 1990 3 HOURS = MINUTES = SECONDS = TICKS = 0; ! INIT ELAPSED TIME TO 00:00:00:00 
3 1991 2 END; 
3 1992 2 
3 1993 2 t+ 
3 1994 2 H MAKE SURE THAT NOT MORE THAN MAX_UNITS HAVE BEEN SPECIFIED. 
: 1995 2 ! iF THERE ARE TOO MANY, NOTIFY USER AND RETURN TO SUPERVISOR. 
3 1996 2 ' (DIAGNOSTIC IS ABORTED). 
F 1997 2 !- 
8 1998 2 
3 1999 2 IF .L$UNIT GTRU MAX_UNITS 
$ 2000 2 THEN 
s; 2001 3 BEGIN 
s 2002 3 ERRSF (1, EGS_01, EMS_01); ! "TOO MANY UNITS” 
; 2003 3 DOCLN; 
8 2004 2 END; 
>; 2005 2 
>; 2006 2 Ye 
:; 2007 2 ! CHECK TO MAKE SURE THERE IS A CLOCK ON THE SYSTEM. IF NO_CLOCK, 
| 2008 2 ! THEN ABORT TO SUPERVISOR. OTHERWISE, DETERMINE WHETHER CLOCK IS 
; 2009 2 H AN L OR P CLOCK, AND SET UP PARAMETERS. 
3 2010 2 !- 
; 2011 2 
3 ay : CLK_TYPE = NO_CLOCK; ! SET FLAG FOR NO CLOCK 
H 2 
>; 2014 3 IF CLOCK (P, CLK_ADR) ! IS THERE A P_CLOCK? 
>; 2015 2 THEN 
3 2016 3 BEGIN 
3 2017 3 CLK_TYPE = P_CLOCK; ! SET TYPE TO P_CLOCK 
3 2018 3 CLK_CSR = ..CLK_ADR; ! SAVE THE CSR ADDRESS 
s 2019 3 -CLK_CSR = #0'105'; ! ENABLE INTERRUPTS 
8 2020 3 END 
> 2021 2 SE 
3 2022 3 BEGIN 
; 2023 3 
3 2024 4 IF CLOCK (L, CLK_ADR) ! IS THERE AN L_CLOCK? 
s 2025 3 THEN 
>; 2026 4 BEGIN. 
: 2027 4 CLK_TYPE = L_CLOCK; ! SET TYPE TO L_CLOCK 
$ 2028 4 CLK_CSR = ..CLK_ADR; ! SAVE THE CSR ADDRESS 
8 2029 4 -CL«_CSR = #0'100'; ! ENABLE INTERRUPTS 
s 2030 3 END; 
3 2031 3 
; 2032 2 END; 
$ 2033 2 
F 2034 2 IF .CLK_TYPE EQLU NO_CLOCK ! IF NO CLOCK WAS FOUND 
$ 2035 2 THEN 
3 2036 3 BEGIN 
s 2037 3 ERRSF (2, EGS_02, 0); ! “NEITHER P NOR L CLOCK WAS FOUND” 
; 2038 3 DOCLN; ! ABORT THE PROGRAM 
; 2039 3 END 
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; 2040 2 ELSE 

H 2041 3 BEGIN 

3 2042 3 CLK_VECTOR = .(.CLK_ADR + 4); ! CLOCK VECTOR ADDRESS 

H 2043 3 CLK_HERTZ = .€.CLK_ADR + 6); ! CLOCK HERTZ RATE 

H 2044 3 SETVEC (.CLK_VECTOR, CLK_INT_SERV, PRIO6); ! SET CLOCK VECTOR ADDR 

3 2045 2 END; 

3 2046 2 

Fy 2047 2 t+ 

3 2048 2 ! THE FOLLOWING CODE IS EXECUTED FOR ALL ENTRY REASONS EXCEPT NEW_PASS. 

H 2049 2 ! ALL RUN-TIME CONTROLLER STATUS TABLES (CST‘S) ARE CLEARED TO 0, THEN 

; a4 ; ! LOADED WITH CONFIGURATION DATA FROM THE HARDWARE P-TABLES. 

3 20 !- 

H 2052 2 

H 2053 2 IF .ENTRY_REASON NEQU NEW_PASS 

H 2054 2 EN 

H 2055 3 BEGIN 

; 2056 3 

3 2057 3 INCR COUNT FROM O TO CCMAX_CTLR * CST_LEN * 2) - 2) BY 2 DO 

H 2058 3 (CST + .COUNT) = 0; 

8 2059 3 

H 2060 3 iNCR UNIT FROM O TO (.L$UNIT - 1) DO ' LOOP THROUGH ALL UNITS 

H 2061 4 BEGIN 

3 2062 4 

F 2063 4 CPT [.UNIT] = NO; ! INIT CURRENT PASS TESTING VECTOR 
$ 2064 4 IF GPHARD (.UNIT, HWPT_REF) NEQA 0 ! IF HWP TABLE FOUND 

Fy 2065 4 EN 

8 2066 5 BEGIN 

H 2067 5 

3 2068 5 FLAG1 = NOT_FOUND; ' NO EXISTING IP ADDRESS MATCH YET 
; 2069 5 INCR CTLR FROM O To CMAX_CTLR - 1) DO ! LOOP THROUGH ALL CST’‘S 

F 2070 6 BEGIN 

H 2071 6 

; 2072 6 IF ae {.CTLR, IP_ADDR] EQLA .HWPT_REF [HWP_IP_ADDR] 

H 2073 6 THE ! IF IP ADDR ALREADY EXISTS 

H 2074 7 MBEGIN 

3 2075 7 

H 2076 7 FLAG1 = FOUND; 

; 2077 7 FLAG2 = NOT_FOUND; ! FLAG INDICATING PLATTER SLOT AVAILABILITY 
; 2078 7 INCR OFFSET FROM (O + OF_UN) TO (3 + OF_UN) DO ! LOOP THROUGH EACH PLATTER SLOT 
H 2079 8 BEGIN 

F 2080 8 

H 2081 8 IF .CST (.CTLR, .OFFSET, P_PRES] EQGLU NOT_PRESENT 

Fy 2082 8 THEN ! IF EMPTY SLOT FOUND 

F 2083 9 BEGIN 

3 2084 9 

8 2085 9 FLAG2 = FOUND; 

H 2086 9 CST (.CTLR, .OFFSET, ALLBIT) = .HWPT_REF [HWP_PLAT]; 

H 2087 9 ! COPY PLATTER ADDR AND PROT BIT 

A 2088 9 CST [.CTLR, .OFFSET, P_UNIT] = .UNIT; 

3 2089 9 CST (.CTLR, .OFFSET, P_PRES] = PRESENT; 

Hy 2090 9 EXITLOOP; 

3 2091 9 

H 2092 9 END ' END - IF PLATTER SLOT FOUND 

H 2093 38 ELSE ! OTHERWISE - SLOT IS OCCUPIED 

H 2094 9 BEGIN 

: 9 

; 9 


IF .CST (.CTLR, .OFFSET, P_ADDR] EQLU .HWPT_REF [HWP_PLAT_ADDR] 
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2097 9 THEN 
2098 10 BEGIN 
2099 10 
2100 10 FLAG2 = FOUND; ! PLATTER ADDR SLOT ALREADY EXISTS 
2101 11 IF MANUAL ! IF ATTENDED 
THEN ! THEN 
P 2103 10 PRINTF (CER_O1, .HWPT_REF [HWP_PLAT_ADDR], 
2104 10 -HWPT_REF [HWP_IP_ADDR])); ! “DUPLICATE PLATTER ADDRESS XXX. AT IP XXXX 
DUR [.UNIT] = DU_CONF; ! LOAD REASON FOR DROPPING UNIT 
DODU (.UNIT); ! DROP UNIT 
EXITLOOP ; ! DON'T LOOK AT ANY MORE SLOTS 
END; ! IF PLATTER ADDR ALREADY EXISTS 
END; ! IF SLOT IS OCCUPIED 
END; ! PLATTER SLOT SEARCH LOOP 
— EQLU NOT_FOUND ! IF PLATTER SLOT NOT AVAILABLE 
HEN 
BEGIN 
IF MANUAL ! IF ATTENDED 


NEN PRINTF (CER_02, .HWPT_REF [HWP_IP_ADDRID; “ALREADY 4 UNITS AT IP XXXXXxX(0)” 
sot aed | Seiya ence 
END; 
EXITLOOP; 
END; ! IF EXISTING CST TABLE FOUND 
END; ! CST TABLE SEARCH LOOP 
IF .FLAG1 EQLU NOT_FOUND ! IF NO IP ADDR MATCH TO EXISTING CST 
HEN BEGIN 


FLAG2 = NOT_FOUND; ! FLAG INDICATING EMPTY CST AVAILABILITY 
a FROM O TO (MAX_CTLR - 1) DO ! LOOP THROUGH EACH CST 
N 


fw 

~ 

°o 

“N 
b+ bs 
woooo 


IF .CST (.CTLR, IP_ADDR] EQLA 0 ! IF EMPTY CST FOUND 
THEN 
BEGIN 


FLAG2 = FOUND; 

CST (.CTLR, IP_ADDR] = .HWPT_REF [HWP_IP_ADDR]); 
CST [.CTLR, VEC_ADDR] = .HWPT_REF [HWP_VECTOR]; 
CsT (.CTLR, BR_LEV) = .HWPT_REF [HWP_BR_LEVEL); 


[ 

[ 

CST (.CTLR, P1_ALL] = .HWPT_REF [HWP_PLAT]; !PLAT ADDR, PROT BIT 
CST (.CTLR, P1_UNIT] = .UNIT; 

CST [.CTLR, P1_PRES] = PRESENT; 
EXITLOOP; 


a SR Oa aa SS Oe eee RCSB Se Ma eae se eG & & 
fw 
tw 
~ 


tf 
w 
fw 
DW DOW OOOO @OIVHININDNDNHUUUUIDADSSNINOOoOeawmwv eon ysssweeowo 
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END; ! IF EMPTY CST FOUND 
END; ! EMPTY CST SEARCH LOOP 
——— EQLU NOT_FOUND ! IF NO EMPTY CST FOUND 
H 
BEGIN 
IF MANUAL ! IF ATTENDED 
THEN ' THEN 
PRINTF (CER_03, oe _CTLR); ! “MORE THAN X DIFFERENT IP ADDRESSES.” 
DUR [.UNIT] = DU_CON ! CONFIGURATION ERROR 
DODU (.UNIT); . $ DROP UNIT 
END; 
END; ! IF NO IP ADDR MATCH IN CST 
END; ! IF GPHARD RETURNED A HWP TABLE 
END; ! UNIT LOOP 
END 
SE 
BEGIN 
on FROM O TO (.L$UNIT - 1) DO ' FOR EACH UNIT 
E 


! OTHERWISE, FOR EACH NEW PASS 


IF GPHARD (.UNIT, HWPT_REF) NEQA 0 ! IF UNIT HAS NOT BEEN DROPPED 
THEN ! THEN 
BEGIN 
CPT [.UNIT] = YES; ! 0.K. TO TEST UNIT 
INCR CTLR FROM O TO (MAX_CTLR - 1) DO ! FIND UNIT’'S CONTROLLER 
BEGIN 
4 aa {.CTLR, IP_ADDR) EQLA .HWPT_REF [HWP_IP_ADDR] 
HE 
BEGIN ! FOUND IT 


CST (.CTLR, U_CNT] = .CST [.CTLR, U_CNT) + 1; ! INCREMENT NO. OF TESTABLE UNITS 
EXITLOOP; ! DONE 


END; 
END; ! CONTROLLER LOOP 
END; ! IF UNIT NOT DROPPED 
END; ! UNIT LOOP 
END; ! END - IF NEW PASS 
IF .ENTRY_REASON LEQU RESTART ! IF START OR RESTART 
THEN THEN 


ad 
© 
ue) 
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: 
; 
3 
3 
F 
$ 
3 
3 
; 
3 
F 
F 
3 
8 
3 
3 
F 
3 
3 
3 








rr 











SEQ 0127 
CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 31 
vo2.0 INITIALIZE SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (7) 
s 2211 3 BEGIN 
, a 2 
F 2213 3 CRN = 0; ' COMMAND REFERENCE NUMBER 
3 2214 3 CTLR_CNT = 0; ! NUMBER OF CONFIGURED CONTROLLERS 
3 2215 3 INCR CTLR FROM O TO (MAX_CTLR - 1) DO 
F 2216 4 BEGIN 
F 2217 4 
F 2218 4 IF .CST [.CTLR, IP_ADDR] NEQA 0 ! IF CONTROLLER IS PRESENT 
; 2219 4 THEN ! THEN 
3 aoat ; CTLR_CNT = .CTLR_CNT + 1; ! INCREMENT CONTROLLER COUNT 
8 
3 2222 3 END; 
8 2223 3 
F 2224 3 MEMORY (FREE_MEM_ADDR); ! GET START OF FREE MEMORY 
F oor 4 MEM_SIZE = ..FREE_MEM_ADDR; !' GET FREE MEMORY SIZE 
: 
3 2227 3 INCR COUNT FROM 0 TO ((MAX_UNITS * TALLY_LEN) - 1) DO ! INITIALIZE 
3 aoe : TALLY [£.COUNT] = 0; ! STATISTICS 
3 
F 2230 2 END; ! END OF START/RESTART INITIALIZATION 
3 2231 2 
3 2232 2 t+ 
3 2233 2 ! MISCELLANEOUS INITIALIZATON e 
3 2234 2 !- 
F 2235 2 
: 2236 2 INCR CTLR FROM O TO (MAX_CTLR - 1) DO ! INITIALIZE NO. OF OUTSTANDING QIOS 
8 2237 2 QIO [.CTLR] = O; 
3 2238 2 INCR COUNT FROM 0 TO CRP_CNT - 1) DO ! INITIALIZE RETURN PACKET POOL 
3 2239 2 RP_USE [.COUNT]) = -1; 
3 2240 2 IODQ_IN = IODQ_OUT = 0; ! INITIALIZE I/0 DONE QUEUE POINTERS 
F 2241 3 IF CC(BIT_TST (SWP_FLAGS, SWF_HWC)) AND ! IF USER CHANGED FROM HOST WRITE-CHECKS TO 
3 2242 3 (BIT_TST C(SWP_FLAGS, SWF_CWC))) ! CONTROLLER WRITE-CHECKS 
$ 2243 2 EN ! THEN (BOTH BITS WOULD BE SET) 
3 04 4 SWP_FLAGS <SWF_PHWC,1> = 0; ! CLEAR HOST WRITE-CHECKS 
3 
3 2246 2 te 
3 2247 2 ! THE FOLLOWING SITUATION (STARTING TRACK NUMBER GREATER THAN ENDING 
3 2248 2 ! TRACK NUMBER) CAN OCCUR DUE TO ANOTHER DRS BUG. IF THE USER ENTERS LOW 
3 2249 2 ! TRACK LIMITS FOR ONE PASS, THEN ENTERS A HIGH STARTING TRACK NUMBER 
$ 2250 2 ! AFTER A RESTART OR CONTINUE COMMAND, DRS WILL NOT GIVE AN ERROR IF THE 
3 2251 2 ! ENDING TRACK NUMBER IS DEFAULTED TO THE PREVIOUS LOW TRACK NUMBER. AN 
3 2252 2 H ERRONEOUS LBN WOULD BE GENERATED IN QIO_LBN IF THIS SITUATION WERE 
3 2253 2 ! ALLOWED. 
3 2254 2 !- 
3 2255 2 
F 2256 2 IF .SWP_STRACK GEQU .SWP_ETRACK 
8 2257 2 THEN 
F 2258 3 BEGIN 
$ 2259 3 
3 2260 3 LOCAL 
3 2261 3 TEMP : WORD; 
3 2262 3 
$ 2263 3 TEMP = .SWP_STRACK; ! REVERSE STARTING AND ENDING 
3 2264 3 SWP_STRACK = .SWP_ETRACK; ! TRACK NUMBERS 
3 2265 3 SWP_ETRACK = .TEMP; 
3 2266 3 
3 2267 2 END; 











rrr 





CZRCDBO RC25 DISK EXERCISER 
INITIALIZE SECTION 


SETPRI (PRIOO); 
ENDINIT; 


000000G 
000010 
000340 
000035 


000005 000000G 
000036 


000003 000000G 
000034 


000004 000000G 


000000G 
000001 


000075 
000620 


000000G 
000006 


000037 


000002 000000G 
000040 


000001 000000G 
000000G 
000000G 





LINIT: 


1$: 


2s: 


3$: 
4$: 
S$: 
6$: 


7$: 
8$: 


9$: 


10$: 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


! SET PROGRAM PRIORITY TO 0 


L$OLY 


LINIT INITIALIZE SECTION 


R1,$SAVES 
#10, SP 
#340 ,RO 
41 


#35,R0 
47 


1$ 
#5,ENTRY .REASON 
#36,RO 


47 

2$ 

#3 ,ENTRY .REASON 
#34,RO 


47 

9$ 

#4 ,,ENTRY .REASON 
50 

3$ 

@MSG.01, -(SP) 
#1,-(SP) 

SP,RO 


17 
(SP)+,(SP)+ 
#75,R2 


4 
10$ 
#2,ENTRY .REASON 
#40,RO 


47 
11$ 
|  teataiearmaaa 


TICKS 
SECONDS 


VAX-11 Bliss-16 V4.0-579 age 32 
USER$1: (AZTEC. CZRCDB IJCZRCD2. SRC; 8 (7) 


1925 
1955 
1957 
1959 
1961 
1963 
1965 
1968 
1969 
1971 
SP ,* 

; *,COUNT 1973 
*,DELAY.MULT 1975 
DELAY.MULT,$$TMP2 
*, $$TMPL 
$$TMP 
$$TMPL 
$$TMP2 
COUNT 






SEQ 0128 
P 











CZRCDBO RC25 DISK EXERCISER 
INITIALIZE SECTION 


000000G 

000000G 

000000G 000020 11$: 
000000G 12$: 
000120 


000001 000000G 
000000G 
000105 000000G 


000114 13$: 


177777 000000G 
000100 000000G 


000000G 14$: 


000004 000000G 15$: 


000006 000000G 


000000G 000002 16$: 


000000G 000005 


17$: 
000000G 18%: 


002730' 


000000G 19$; 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


MINUTES 
HOURS 
LS$UNIT,#20 
12$ 

54 

1 

EGS.01 
EMS.01 


a4 

CLK. TYPE 
#120,RO0 

62 

13$ 

RO,R1 
#1,CLK.TYPE 
(R1),CLK.CSR 
#105, @CLK.CSR 
14$ 

#114,RO0 

62 


14$ 

RO,R1 
#-1,CLK. TYPE 
(R1),CLK.CSR 
#100,8CLK.CSR 
CLK. TYPE 

15$ 

54 


2 
EGS.02 
ve) 


64 

16$ 

4(R1),CLK. VECTOR 
6(R1),CLK.HERTZ 
#300, -(SP) 

@CLK .INT.SERV, -C SP) 
CLK. VECTOR, -(SP) 
-(SP) 


#10,SP 
LS$UNIT,2(SP) 
2(SP) 

ENTRY .REASON, #5 


17$ 
37$ 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD2. SRC; 8 


RO,CLK.ADR 
CLK.ADR,« 


RO,CLK.ADR 
CLK.AOR, « 


*(CLK.ADR),« 
*#(CLK.ADR),* 


COUNT 

*( COUNT) 
#, COUNT 
COUNT, # 


UNIT 


*#(UNIT) 
UNIT ,# 


«, HWPT .REF 


SEQ 0129 
Page 
(7) 


1999 









SEQ 0130 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 se an VAX-11 Bliss-16 V4.0-579 Page 


34 
INITIALIZE SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2. SRC;8 (7) 








002726' JMP 34$ 






208: CLRB (SP) s FLAG1 2068 
CLR R4 ; CTLR 2069 
21$: MOV R4,-CSP) ; CTLR,# 2072 






000016 MOV #16, -(SP) 
000000G 










CMP (SP)+,(SP)+ 
000000G CMP CSTCRO),CR1) ; *,HWPT REF 
BNE 283 
000001 MOVB #1,(SP) : *,FLAG1 2076 
CLRB RS s FLAG2 2077 
MOV R4,-CSP) ; CTLR,« 2081 
000007 MOV #7 ,-CSP) 
000000G JSR PC ,BL$MUL 
000010 MOV RO, 10(SP) 





CMP (SP)+,(SP)+ 







000003 MOV #3 ,R3 3 *,OFFSET 2078 
228: MOV R3,RO ; OFFSET,« 2081 
000004 ADD 4(SP),RO 
ASL RO 






000000G ADD @CST,RO 
040000 BIT #40000, (RO) 
BNE 23% 
























000001 MOVB #1,R5 ; *,FLAG2 2085 
000006 MOV 6(R1), CRO) ; *C(HWPT.REF),« 2086 
MOV R2,-(SP) ; UNIT,* 2088 
SWAB (SP) 
160377 BIC #160377, (SP) 
017400 BIC #17400,(RO) 
BIS (SP)+,CRO) 
040000 BIS #40000, (RO) ; 2089 
BR 26$ ; 2083 
000006 23%: — > latmaaes ; *, *CHWPT REF ) 2096 
000001 MOVB #1,R5 3; *,FLAG2 2100 
TRAP 50 : 2101 
BHIS 243 
MOV (R1),-CSP) ; HWPT.REF ,« 2104 
CLR -(SP) 
000006 MOVB 6(R1), (SP) ; *C(HWPT.REF),« 
000000G MOV @CER .01,-( SP) 
000003 MOV @3,-(SP) 
MOV SP ,RO ; SP,« 
TRAP 17 
000010 ADD #10, SP 
000001 000900G 243: MOVB #1 ,DUR(R2) 3; #,*#C(UNIT) 
MOV R2,RO 3; UNIT, 
TRAP 51 






BR 
258: INC R3 s OFFSET 
000006 CMP R3, 06 s OFFSET,« 






26%: TSTB RS s FLAG2 
BNE 





- (RES nnn nn SS SSS 
SEQ 0131 

CZRkCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 

v02.0 INITIALIZE SECTION 14-Jun-1985 09:32:03 USER$!:(AZTEC.CZRCDBICZRCD2.SRC;8 (7) 

000766 011146 MOV (R1),-CSP) ; HWPT. REF ,« 2121 

000770 012746 000000G MOV CER .02, -( SP) 

000774 012746 000002 MOV @2,-(SP) 

001000 010600 MOV SP ,RO ; SP,« 

001002 104417 TRAP 17 

001004 062706 000006 ADD 6 ,SP 

001010 112762 000001 000000G 27s: MOVB #1,DURC(R2) ; *,*C(UNIT) 2122 

001016 010200 MOV R2,RO : UNIT,«# 2123 

001020 104651 TRAP 51 

001022 000404 BR 29$ F 2074 

001024 005204 288: INC R4 ; CTLR 2069 

001026 020427 000003 CMP R493 ; CTLR,« 

001032 003637 BLE 213 

001034 105716 293: TSTB (SP) ; FLAGL 2133 

001036 001074 BNE 34$ 

001040 105005 CLRB RS ; FLAG2 2137 

001042 005000 CLR RO ; CTLR 2138 

001044 005760 000000G 30$: TST CSTCRO) ; #(CTLR) 2141 

001050 001037 BNE 31$ 

001052 112705 000001 MOVB *1,R5 ; *,FLAG2 2145 

001056 011160 000000G MOV (R1),CSTCRO) ; HWPT.REF,«(CTLR) 2146 

001062 016103 000002 MOV 2(R1),R3 ; *(HWPT.REF),« 2147 

001066 042703 177000 BIC #177009,R3 

001072 042760 000777 000002G BIC #777,C T+2CRO) ; *,4(CTLR) 

001100 050360 000002G BIS R3,CST+2(RO) ; *,*(CTLR) 

001104 116160 000004 0000046 MOVB 4(R1),CST+4(RO) :; #CHWPT.REF),*«(CTLR) 2148 

001112 012703 000006G MOV #CST+6,R3 3 2150 

001116 060003 ADD RO,R3 ; CTLR,« 

001120 016113 000006 MOV 6(R1),(R3) 3; *(HWPT.REF),« 

001124 010204 MOV ’ ; UNIT,@ 2151 

001126 00304 SWAB 

001130 042704 160377 BIC #160377,R4 

001134 042713 017400 BIC #17400,(R3) 

00.140 050413 BIS R4,(R3) 

001142 052713 040000 BIS #40000 ,(R3) 3 2152 

001146 000405 BR 32$ 3 2143 

001150 062700 000016 31$: ADD #16,RO0 ; *,CTLR 2138 

001154 20027 000052 CMP RO, #52 ; CTLR,« 

001160 oO. /731 BLE 30$ 

001162 105705 323: TSTB RS ; FLAG2 2159 

001164 001021 BNE 34$ 

001166 104450 TRAP 50 : 2163 

001170 103012 BHIS 33$ 

001172 012746 000004 MOV #4,-(SP) 3 2165 

001176 012746 000000G MOV #CER.03, -CSP) 

001202 012746 000002 MOV #2,-(SP) 

001206 010600 MOV SP ,RO ; SP,« 

001210 104417 TRAP 17 

001212 062706 000006 ADD #6 ,SP 

001216 112762 000001 000000G 33$: MOVB #1,DUR(R2) ; #,*C(UNIT) 2166 

001224 010200 MOV R2,R0 ; UNIT,« 

001226 104451 TRAP 51 

001230 005202 34$; INC R2 3; UNIT 

001232 020266 000002 35$: CMP R2,2(SP) ; UNIT,«# 

001236 003002 BGT 36$ 

001249 000137 002204' JMP 19$ 

001244 000431 36$: BR 43$ F 














SEQ 0132 
CZ2RCD2 CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 36 
vo2.0 INITIALIZE SECTION 14-Jun-1985 09:32:03 USER $1:(AZTEC.CZRCOB ICZRCD2.SRC;8 (7) 
001246 0095002 378; CLR R2 s UNIT 2181 
001250 000424 BR 42$ 
001252 010200 38$: MOV R2,RO0 ; UNIT,# 2184 
001254 104442 TRAP 42 
001256 010001 MOV RO,R1 : #,HWPT REF 
001260 001417 BEQ 41$ 
001262 112762 000001 0000006 MOVB #1,CPTC(R2) ; *,*CUNIT) 2188 
001270 005000 CLR RO ; CTLR 2189 
001272 926011 0000006 398; CMP CSTCRO),CR1) : #(CTLR),HWPT.REF 2192 
001276 001003 BNE 40$ 
001300 105260 0000056 INCB CST+SCRO) : #(CTLR) 2196 
001304 000405 BR 41$ ; 2194 
001306 062700 000016 40$: AOD #16,R0 ; #,CTLR 2189 
001312 020027 000052 CMP RO,@52 ; CTLR,« 
001316 003765 BLE 39$ 
001320 005202 41$: INC R2 ; UNIT 2181 
001322 020266 000002 42$: cmMP R2,2(SP) ; UNIT,«* 
001326 003751 BLE 38$ 
001330 123727 000000G 000002 438: CMPB ENTRY.REASON, #2 ; 2209 
001336 101034 BHI 47$ 
001340 005037 000000G CLR CRN ; 2213 
001344 005037 0000006 CLR CTLR.CNT ; 2214 
001350 ocS000 CLR RO ; CTLR 2215 
001352 0CS760 0000006 44%: TST CSTCRO) + #(CTLR) 2218 
001356 001402 BEQ 45$ 
001360 005237 0000006 INC CTLR.CNT ; 2220 
001364 062700 000016 45$: ADD #16,RO0 ; *,CTLR 2215 
001370 020027 000052 CMP RO, #52 ; CTLR,« 
001374 003766 BLE 443 
001376 104431 TRAP 31 ; 2224 
001400 010037 000000G MOV RO,FREE.MEM. ADDR 
001404 011037 000000G MOV (RO) ,.MEM.SIZE ; FREE .MEM.ADDR,« 2225 
001410 005000 CLR RO 3 COUNT 2227 
001412 005060 000000G 46$: CLR TALLYCRO) ; *(COUNT) 2228 
001416 062700 000002 ADD #2,RO0 ; *, COUNT 2227 
001422 020027 001376 CMP RO,#1376 ; COUNT,«# 
001426 003771 BLE 46$ 
001430 005000 47$: CLR RO ; CTLR 2236 
001432 105060 000000G 48%: CLRB QIOCRO) ; #(CTLR) 2237 
001436 005200 INC RO ; CTLR 2236 
001440 020027 000003 CMP RO, 03 ; CTLR,* 
001444 003772 BLE 48$ 
001446 005000 CLR RO ; COUNT 2238 
001450 112760 000377 000000G 49$: MOVB #377 ,RP.USECRO) ; *,*(COUNT) 2239 
001456 005200 INC RO ; COUNT 2238 
001460 020027 000037 CMP RO, #37 ; COUNT,«# 
001464 003771 BLE 49$ 
001466 005037 000000G CLR I0DQ. OUT ; 
002472 005037 000000G CLR I00Q.IN 
003476 132737 000100 000000G BITB #100,SWP.FLAGS ; 
002504 001407 BEQ 50$ 
001506 132737 000040 000000G BITB #40, SWP.FLAGS ; 
001514 001403 BEQ 50$ 
001516 142737 000100 000000G BICB #100,SWP.FLAGS ; 
001524 023737 0000006 000000G 50$: CMP SWP. STRACK ,SWP .ETRACK ; 
001532 103407 BLO 51$ 
001524 013700 000000G MOV SWP. STRACK ,RO 3; *, TEMP 





--- 


CzRCd2 
vo2.0 


001540 
001546 
001552 
001554 
001556 
001562 


013737 


; Routine Size: 
3; Maximum stack depth per invocation: 


000000 004737 
000004 104411 
000006 000207 


: Routine Size: 


; Maximum stack depth per invocation: 





CZRCOBO RC25 DISK EXERCISER 
INITIALIZE SECTION 


000000G 000000G 
000000G 


518: 


000010 


442 words, 


Routine Base: 
16 words 


.SBTT 
LSINIT::JSR 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


MOV SWP..ETRACK , SWP. STRACK 
MOV RO, SWP .ETRACK 


CLR RO 
TRAP 41 
ADD #10, SP 
RTS PC 


$CODE$ + 1476 


L$INIT INITIALIZE SECTION 


001476’ PC, ,LINIT 
TRAP 11 
RTS PC 

4 words, Routine Base: $sCODE$ + 3262 


2 words 





SEQ 0133 
Page 
USER$1:(AZTEC.CZRCOB ICZRCD2.SRC;8 (7) 


VAX-11 Bliss-16 V4.0-579 


3 2264 
; TEMP,« 2265 
8 2269 
$ 1925 
3 2269 


EES a RR AY St 








SEQ 0134 

cZzRCcd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 38 
vo2.0 AUTODROP SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (8) 
3 2272 1 “@SBTTL ‘AUTODROP SECTION’ 
H 2273 1 
Fy 2274 1 te 
3 2275 1 ! THIS CODE IS EXECUTED IMMEDIATELY AFTER THE INITIALIZE CODE IF THE 
3 2276 1 ! “ADR” FLAG WAS SET. THE UNIT(S) UNDER TEST ARE CHECKED TO SEE IF THEY 
3 ti! : WILL RESPOND. THOSE THAT DON’T ARE IMMEDIATELY DROPPED FROM TESTING. 
; be 
Fy 2279 1 
Fy 2280 2 BGNAUTO; 
3 2281 2 
3 2282 2 RETURN; 
F 2283 2 
Fy 2284 1 ENDAUTO; 

.-SBTTL LAUTO AUTODROP SECTION 
000000 000207 LAUTO: RTS PC 3 2271 
; Routine Size: 1 word, Routine Base: $CODE$ + 3272 
; Maximum stack depth per invocation: 0 words 

-SBTTL L$AUTO AUTODROP SECTION 
000000 0C4737 003272' L$AUTO::JSR PC ,LAUTO 8 2282 
000004 104461 TRAP 61 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: $CODE$ + 3274 


; Maximum stack depth per invocation: 2 words 








_—— 


CZRCDBO RC25 DISK EXERCISER 
CLEANUP CODING SECTION 


SSBTTL ‘CLEANUP CODING SECTION’ 


CZRCD2 
vo2.0 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 





SEQ 0135 
Page 39 
USER $1: (AZTEC. CZRCDB ICZRCD2.SRC;:8 (9) 


VAX-11 Bliss-16 V4.0-579 


THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED UNDER 
ONE OF THREE CONDITIONS: (A) AFTER EACH COMPLETE PASS, (8) WHENEVER 
THE “DOCLN” MACRO IS ENCOUNTERED, AND (C) WHEN THE OPERATOR TYPES 

SOME OF THE CODE IN THIS SECTION IS NOT PERFORMED IF THE 


IF THERE IS NO CLOCK 
THEN 

RETURN 

OTHERWISE 


TURN OFF CLOCK 
CLEAR CLOCK VECTOR 


IF INVOKED BY tC OR DOCLN 
THEN 


IN CASE USER GAVE BAD IP ADDRESS 
FOR EACH CONTROLLER 

! IF CONTROLLER EXISTS 

! THEN 

! WRITE IP TO STOP DEVICE 


RETURN TRAP 4 TO DIAGNOSTIC SUPERVISOR 
IF NOT END OF PASS 
INITIALIZE DROP UNIT REASON VECTOR 


IF SYSTEM HAS MEMORY MANAGEMENT 
THEN 


RESTORE PAR‘S 
TURN OFF MEMORY MANAGEMENT 


= 


CLEAR END-OF-PASS FLAG 


Hy 1 

Hy 1 

3 1 

H 1 

’ 1 

8 1 

: 2291 1 "<CTRL-C>”. 

3 2292 1 REASON FOR ENTRY IS END-OF-PASS (CA) ABOVE). 
8 2293 1 . 

: 2294 1 

8 2295 2 BGNCLN; 

$ 2296 2 

3 2297 2 IF .CLK_TYPE EQLU NO_CLOCK 

3 2298 2 THEN 

8 2299 2 RETURN 

F 2300 2 SE 

3 2301 3 BEGIN 

3 2302 3 

3 2303 3 -CLK_CSR = 0; 

8 2304 3 CLRVEC (.CLK_VECTOR); 

3 2305 3 

8 2306 2 END; 

8 2307 2 

3 2308 2 IF NOT .EOP_FLAG 

s 2309 2 THEN 

3 2310 3 BEGIN 

3 2311 3 

3 2312 3 SETVEC (4, NEX_TRAP, PRIO7); 
s 2313 3 INCR CTLR FROM O TO C(MAX_CTLR - 1) DO 
s 2314 4 BEGIN 

3 2315 4 

F 2316 4 IF CRC25_ADDR = .CST [.CTLR, IP_ADDR]) NEQA 0 
F 2317 4 THEN 

$ 2318 4 WRT_RC25 CRCIP, RC_ALL, ALL_ONES); 
8 2319 4 

3 2320 3 END; 

s 2321 3 

8 2322 3 CLRVEC (4); 

s 2323 3 

8 2324 2 END; 

3 2325 2 

3 2326 2 INCR UNIT FROM O TO (MAX_UNITS - 1) DO 
3 2327 2 DUR [.UNIT] = 0; 

F 2328 2 

3 2329 2 IF .MEM_MGMT 

3 2330 2 THEN 

3 2331 3 BEGIN 

s 2332 3 

3 2333 3 KTPAR4 = #0'1000'; 

s 2334 3 KTPARS = #0'1200'; 

8 2335 3 MMRO = 0; 

s 2336 3 

F 2337 2 END; 

5 2338 2 

3 2339 2 EOP_FLAG = FALSE; 

3 2340 2 

3 2341 1 ENDCLN; 





000150 
000156 
000164 
000170 
000174 
000176 


000000 


000004 
000006 





010146 
005737 
001472 
005077 
013700 
104436 
132737 
001034 
012746 
012746 
012746 
012746 
104437 
005000 
016037 
001404 
012701 
010170 
062700 
020027 
003763 
012700 
104436 
062706 
005000 
105060 
005200 
020027 
003772 
132737 
001410 
012737 
012737 
005037 
105037 
012601 
000207 


Routine Size: 
Maximum stack 


004737 


104412 
000207 


: Routine Size: 
; Maximum stack 





CZRCDBO RC25 DISK EXERCISER 


CLEANUP CODING SECTION 


000000G 


000060G 000000G 
177777 
000000G 
000016 
000052 
000004 
000010 
000000G 
000017 
000001 
001000 
001200 


177572 
000000G 


000000G 


172350 
172352 


64 words, 
depth per invocation: 


003304’ 


4 words, 
depth per invocation: 


- SB 
LCLEAN: var 


1$: 


2s: 


3$: 
4$: 


5$: 
6$: 


Routine Base: 
7 words 


L$CLEAN: : 
JSR 


Routine Base: 
2 words 


TRAP 
RTS 


TTL 


$CODE$ + 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


LCLEAN CLEANUP CODING SECTION 


Ri, -(SP) 

CLK. TYPE 

6$ 

aCLK.CSR 

CLK. VECTOR RO 


36 

#1,E0P .FLAG 

3$ 

#340, -(SP) 
#NEX. TRAP, -C SP) 


#4,-(SP) 
#3, -(SP) 
37 


RO 
rn 


#-1,R1 
R1,9CSTCRO) 
#16,RO 


aia 
#1000, 8#172350 
#1200, 8172352 
8#177572 


EOP.FLAG 
(SP)+,R1 
PC 


3304 


PC,LCLEAN 
12 
PC 


$CODE$ + 3504 





VAX-11 Bliss-16 V4.0-579 Page 40 
USER$1: (AZTEC. CZRCOB ICZRCD2.SRC;8 (9) 








SEQ 0136 


CTLR 
*(CTLR),*# 


*,RC.REG 
RC .REG,# 
*,CTLR 
CTLR,* 




















SEQ 0137 
CzRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 41 
vo2.0 DROP UNIT SECTION 14-Jun-1985 09:32:03 USER $1: (AZTEC. CZRCOBICZRCD2.SRC;8 (10) 


SSBTTL ‘DROP UNIT SECTION’ 


- 


THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A PLATTER TO NO 
LONGER BE TESTED. IT IS EXECUTED WHENEVER THE MACRO "DODU” IS 

eo pe IN THE PROGRAM, OR WHEN THE OPERATOR TYPES THE COMMAND 
“DROP/UNIT : X” 


THE ance WILL DROP A UNIT FOR ONE OF SEVERAL REASONS: 
- A CONTROLLER CANNOT BE BROUGHT ONLINE, 
2 A PLATTER CANNOT BE BROUGHT ONLINE TO ITS CONTROLLER, 
3. AN UNRECOVERABLE PORT OR CONTROLLER ERROR HAS BEEN DETECTED, 
4. A PLATTER HAS REACHED THE HARD ERROR LIMIT, OR 
5S. AN MSCP END MESSAGE CONTAINS A “UNIT-OFFLINE” STATUS CODE. 


BGNDU; 
OWN 
DUM_TBL : VECTOR [5] INITIAL (DUM_UC, DUM_CE, ! ADDRESS TABLE FOR DROP UNIT MESSAGES 
DUM_IE, DUM_HE, DUM_UE); 
LOCAL 
UNIT : WORT ! NUMBER OF UNIT BEING DROPPED 
PRINT : WOi..; ! 0.K TO PRINT DROP UNIT MESSAGE 


ao 
LABEL 
SEARCH; 


BEGIN 
REGISTER 
INPUT = 0; UNIT NUMBER APPEARS IN RO UPON ENTRY 
UNIT = . INPUT; GET UNIT NUMBER 
END; ! UNDECLARE REGISTER 
PRINT = FALSE; ! ASSUME NO PRINTING OF MESSAGE 


SEARCH: BEGIN SEARCH BLOCK 
BEGIN 


INCR CTLR FROM O TO (MAX_CTLR - 1) DO ! FOR EACH CST 
BEGIN 


— FROM (O + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT ENTRY IN CST 


IF ((.CST (.C7\R, .OFFSET, P_PRES] EQLU PRESENT) AND ! IF UNIT EXISTS AND 


2391 (.CST (.CiLR, .OFFSET, P_UNIT] EQLU .UNIT)) 8 UNIT MATCHES CST ENTRY 
2392 HEN ! THEN 

2393 BEGIN 

2394 

2395 IF .CST (.CTLR, .OFFSET, P_STAT] EQLU ONLINE ! IF UNIT IS ONLINE 

2396 THEN ! THEN 

2397 BEGIN 


Se Se SS SO SS SO SE SS SE 8 SE SS SE GF GS OE SS SF FETS SHH SHSHHHKHHHSHEHHSESHEHSEHHESHHKE SE SS © OO GS &  & 
LS] 
w 
o 
“I 


tw 
w 
“I 
-_ 
SSDUDDUND DWN BS & BW G8 810 10 10 90 10 68 6 68 Gd Gd G0: 90: 90: 10. 10: 10: 100. 10 10. 100 100 10 10 ee ee ee pe pe es pe ee pe 








st 


















SEQ 0138 

CZRCD2 CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 4 
vo2.0 DROP UNIT SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDBICZRCD2.SRC;8 (10) 
: 2399 7 PRINT = TRUE; ! 0.K. TO PRINT MESSAGE 
; 2400 7 CST (.CTLR, .OFFSET, P_STAT] = OFFLINE; ! MARK UNIT OFFLINE 
3 2401 7 IF .CPT [.UNIT] EQLU YES ! IF UNIT IS UNDER TEST 
3 2402 7 THEN ! THEN 
8 2403 8 BEGIN 
H 2404 8 
F 2405 8 CPT [.UNIT] = NO; ! NO FURTHER TESTING 
3 2406 8 CST (.CTLR, U_CNT] = .CST [.CTLR, U_CNT] - 1; ! DECREMENT UNIT COUNT 
; es ; DM_COMM [.CTLR, .OFFSET - OF_UN, ALLBIT] = -1; ! IF OM EXER, TELL FPT 
F 
3 2409 7 END; 
: 2410 7 
3 2411 6 END; ! IF UNIT WAS ONLINE 
3 2412 6 
F 94 6 LEAVE SEARCH; ! EXIT SEARCH BLOCK 
8 1 6 
8 94 ;: END; ! IF UNIT EXISTS AND MATCHES 
3 2417 4 END; ! CST UNIT LOOP 
3 2418 4 
$ 2419 3 END; ! CONTROLLER LOOP 
3 2420 3 
F a eak ; END; ' SEARCH BLOCK 
F 
3 2423 3 IF MANUAL AND (.PRINT OR (.DUR [.UNIT] LEQU DU_INIT)) ! IF 0.K. TO PRINT MESSAGE 
F 2424 2 THEN ! THEN 
3 2425 3 BEGIN 
3 2426 3 
s 2427 3 PRINTF CCRLF); § <CR><LF> 
$ 2428 3 PRINTF CETIME, .HOURS, .MINUTES, .SECONDS); ! ELAPSED TIME 
8 2429 3 PRINTF (DUM_00, .UNIT); ! "UNIT XX. DROPPED - “ 
8 2430 3 PRINTF (.DUM_TBL [.DUR [.UNIT]]); ! REASON 
H 2431 3 
F 2432 2 END; 
; 2433 2 
$ 2434 1 ENDDU; 
003514 000000G DUM.TBL:.WORD DUM.UC 
003516 000000G -WORD ODUM.CE 
003520 000000G -WORD OUM.IE 
003522 000000G -WORD ODUM.HE 
003524 000000G -WORD OUM.UE 

-SBTTL LDU DROP UNIT SECTION 
000000 004137 000000G LDU: JSR R1,$SAVES : 2341 
000004 010001 MOV RO,R1 ; INPUT,UNIT 
000006 005004 CLR R4 ; PRINT 
000010 005003 CLR R3 ; CTLR 
000012 010346 1$: MOV R3,-CSP) ; CTLR,«* 
000014 012746 000007 MOV #7,-CSP) 
000020 004737 000000G JSR PC ,BL$MUL 
000024 010005 MOV RO,RS 
000026 012702 000003 MOV #3 ,R2 ; *,OFFSET 
000032 010500 2s: MOV R5,RO 3 
000034 060200 ADD R2,R0 ; OFFSET,« 















SEQ 0139 


CZRCD2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 43 
vo2.0 DROP UNIT SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (10) 
000036 006300 ASL RO 

000040 062700 0000006 ADD #CST,RO 

000044 032710 040000 BIT #40000, (RO) 

000050 001450 BEQ 4$ 

000052 010146 MOV Ri,-(SP) ; UNIT,*# 2391 
000054 011046 MOV (RO),-CSP) 

000056 000316 SWAB (SP) 

000060 042716 177740 BIC #177740, (SP) 

000064 022626 CMP (SP)+,(CSP)+ 

000066 001041 BNE 4$ 

000070 032710 020000 BIT #20000, (RO) ; 2395 
000074 001434 BEQ 3$ 

000076 012704 000001 MOV #1,R4 : *,PRINT 2399 
000102 042710 020000 BIC #20000, (RO) ; 2400 
000106 126104 000000G CMPB CPTCR1),R4 ; *(UNIT),«# 2401 
000112 001025 BNE 3$ 

000114 105061 000000G CLRB CPTCR1) ; *#CUNIT) 2405 
000120 010316 MOV R3,(SP) ; CTLR,*# 2406 
000122 012746 000016 MOV #16, -CSP) 

000126 004737 000000G JSR PC ,BL$MUL 

000132 005726 TST (SP)+ 

000134 105360 0000056 DECB CST+SCRO) 

000140 010316 MOV R3,(SP) ; CTLR,*# 2407 
000142 012746 000032 MOV #32,-CSP) 

000146 004737 000000G JSR PC ,BL$MUL 

000152 005726 TST (SP)+ 

000154 060200 ADD R2,RO ; OFFSET,*# 

000156 006300 ASL RO 

000160 012760 177777 177772G MOV #-1,0M.COMM-6(RO) 

000166 022626 3$: CMP (SP)+,(SP)+ i 2393 
000170 000411 BR 5$ 

000172 005202 4$: INC R2 ; OFFSET 2387 
000174 020227 000006 CMP R2, #6 ; OFFSET,«# 

000200 003714 BLE 2$ 

000202 022626 CMP (SP)+,(SP)+ ; 2385 
000204 005203 INC R3 ; CTLR 2384 
000206 020327 000003 CMP R3, #3 ; CTLR,* 

000212 003677 BLE 1$ 

000214 104450 S$: TRAP 50 3 2423 
000216 103053 BHIS 7$ 

000220 006004 ROR R4 3 PRINT 

000222 103404 BLO 6$ 

000224 126127 000000G 000002 CMPB DURCR1), #2 ; *CUNIT),# 

000232 101045 BHI 7$ 

000234 012746 000000G 6$: MOV #CRLF , -CSP) ; 

000240 012746 000001 MOV #1,-C(SP) 

000244 010600 MOV SP ,RO ; SP,# 

000246 104417 TRAP 17 

000250 013716 000000G MOV SECONDS, (SP) ; 

000254 013746 000000G MOV MINUTES, -(SP) 

000260 013746 000000G MOV HOURS, -( SP) 

000264 012746 000000G MOV #ETIME ,-(SP) 

000270 012746 000004 MOV #4,-(SP) 

000274 010600 MOV SP ,RO ; SP,* 

000276 104417 TRAP 17 

0003C0 010116 MOV R1,(SP) ; UNIT,*# 

000302 012746 000000G MOV #DUM.00, -( SP) 











SEQ 0140 
P 


CzRcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 44 
vo2.0 DROP UNIT SECTION 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCNB ICZRCD2.SRC;:8 (10) 
000306 012746 000002 MOV #2,-CSP) 
000312 010600 MOV SP ,RO ; SP,* 
060314 104417 TRAP 17 
000316 005000 CLR RO : 2430 
000320 156100 000000G BISB DURCR1),RO ; *CUNIT),# 
000324 006300 ASL RO 
000326 016016 003514’ MOV DUM. TBLCRO), (SP) 
000332 012746 000001 MOV #1,-CSP) 
000336 010600 MOV SP ,RO ; SP,* 
006340 104417 TRAP 17 
000342 062706 000022 ADD #22,SP $ 2425 
000346 000207 7$: RTS PC F 2341 
; Routine Size: 116 words, Routine Base: ‘$sCODE$ + 3526 
3; Maximum stack depth per invocation: 17 words 
-SBTTL L$DU DROP UNIT SECTION 
000000 004737 003526' L$DU:: JSR PC,LDU 3 2432 
000004 104453 TRAP 53 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: $CODE$ + 4076 


; Maximum stack depth per invocation: 2 words 















SEQ 0141 
P 






CZRCD2 CZRCDBO FC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 45 
vo2.0 ADD UNIT SECTION 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOB JCZRCD2.SRC;8 (11) 
; 2435 1 SsSBTTL ‘ADD UNIT SECTION’ 
>; 2436 1 
3 2437 1 te 
; 2438 1 H THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES TO BE 
3 2439 1 ! EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK TO THE TEST 
3 2440 1 ' CYCLE. THIS CODE WILL BE EXECUTED AFTER Te~ OPERATOR COMMAND 
F 2441 i ! “ADD/UNIT:X”. 
3 2442 1 !- 
3 2443 1 
3 2444 2 BGNAU; 
8 2445 2 
F 2446 2 LOCAL 
3 2447 2 UNIT : WORD, ! NUMBER OF UNIT BEING ADDED 
3 2448 2 STINDX : WORD, 
8 2449 2 ENDIDX : WORD; 
; 2450 2 
F 2451 3 BEGIN 
F 2452 3 
: 2453 3 REGISTER 
8 2454 3 INPUT = 0; ! UNIT NUMBER APPEARS IN RO UPON ENTRY 
3 2455 3 UNIT = . INPUT; ! GET UNIT NUMBER 
F 2456 3 
F a : END; ! UNDECLARE REGISTER 
3 
3 2459 2 DUR [.UNIT] = 0; ! ZERO OUT DROP UNIT REASON 
3 2460 2 STINOX = .UNIT « TALLY_LEN; ! ZERO OUT 
F 2461 2 ENDIDX = .STINDX + TALLY_LEN - 1; ! ADDED 
F 2462 2 INCR COUNT FROM .STINDX TO .ENDIDX DO ! UNIT'S 
$ 2463 2 TALLY [.COUNT] = 0; ! STATISTICS 
3 2464 2 
3 2465 1 ENDAU; 
-SBTTL LAU ADD UNIT SECTION 
000000 004137 000000G LAU: JSR R1, $SAVE2 3 2434 
000004 105060 000000G CLRB DURC( RO) ; *CUNIT) 2459 
000010 010046 MOV RO,-(SP) ; UNIT,«# 2460 
000012 012746 000030 MOV #30, -CSP) 
000016 004737 000000G JSR PC .BL$MUL 
000022 010002 MOV RO,R2 ; STINDX,ENDIDX 2461 
000024 062702 000027 ADD #27,R2 ; *,ENDIDX 
000030 010001 MOV RO,R1 ; STINDX,COUNT 2462 
000032 005301 DEC R1 ; COUNT 
000034 000404 BR 2s 
000036 010100 1$: MOV R1,RO0 ; COUNT,* 2463 
000040 006300 ASL RO 
000042 005060 000000G CLR TALLYCRO) 
000046 005201 2s: INC R1 ; COUNT 2462 
000050 020102 CMP R1,R2 ; COUNT, ENDIDX 
000052 003771 BLE i$ 
000054 022626 CMP (SP)+,(SP)+ 3 
000056 000207 RTS PC 


; Routine Size: 24 words, Routine Base: ‘$CODE$ + 4106 
; Maximum stack depth per invocation: 6 words 


ate a US re 





000000 004737 004106’ 
000004 104452 
000006 000207 


3; Routine Size: 
; Maximum stack depth per invocation: 


-— 


CZRCOBO RC25 DISK EXERCISER 


14-Jun-1985 09:3 
ADD UNIT SECTION 3 


14-Jun-1985 09: 


Routine Base: ‘sCODE$ + 4166 





6:36 VAX-11 Bliss-16 V4.0-579 
2:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 


-SBTTL L$AU ADD UNIT SECTION 


SEQ 0142 
Page 46 
(11) 


2463 








G+ Gs Gs Ge Gs Ge Gs Gs Gs Gs Gs Ge Gs 
fr 
fe 
wr 

D0 1010 ee ee pe pe pe 


000000 012737 
000006 000002 


; Routine Size: 


SEQ 0143 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 47 
NON-EXISTENT MEMORY TRAP HANDLER 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB JCZRCD2.SRC;8 (12) 


SSBTTL ‘NON-EXISTENT MEMORY TRAP HANDLER’ 


THIS TRAP HANDLER IS VECTORED FROM LOCATION 4 FOR ALL UNIBUS TIMEOUT 
ERRORS, INDICATING THAT AN ATTEMPT WAS MADE TO REFERENCE A NON-EXISTENT 
MEMORY LOCATION. ITS MAIN PURPOSE IS TO SET 4 FLAG FOR THE RCi1 
REGISTER EXISTENCE TEST, INDICATING THE ABSENCE OF A DEVICE REGISTER. 


BGNSRV (NEX_TRAP); 


NEX = TRUE; ! NEX TRAP OCCURRED 
ENDSRV; 
-SBTTL NEX.TRAP NON-EXISTENT MEMORY TRAP HANDLER 
000001 000000G NEX. TRAP: : 
MOV #1,NEX F 2477 
RTI ; 2475 
4 words, Routine Base: ‘$sCODE$ + 4176 


s Maximum stack depth per invocation: 0 words 





CZRCD2 
vo2.0 


2480 
2481 
2482 
2483 
2484 
2485 


2 
$ 





EMM WWS BUUUUIUL & & & & & & UI Uh I ED 90 90 10 00 be be be pe pe pe 


005237 


023737 
001024 
005037 
005237 
023727 
001014 
005037 
005237 
023727 
001004 










SEQ 0144 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 48 
CLOCK INTERRUPT SERVICE ROUTINE 14-Jun-1985 09:32:03 USER$1:([AZTEC.CZRCOBICZRCD2.SRC;8 (13) 


SSBTTL ‘CLOCK INTERRUPT SERVICE ROUTINE’ 


THE CLOCK INTERRUPT SERVICE ROUTINE IS ENTERED AT THE CLOCK HERTZ RATE 
(SO OR 60 TIMES PER SECOND). ITS PURPOSE IS TO MAINTAIN THE ELAPSED 
TIME OF THE EXERCISER, AND, IF ONE SECOND HAS ELAPSED, TO FLAG THE 
EVENT BY SETTING T_FLAG TO “TRUE”. 


ters@rtararsese 


BGNSRV (CLK_INT_SERV); 


TICKS = .TICKS + 1; 
IF .TICKS EQLU .CLK_HERTZ 
THEN 


BEGIN 
TICKS = 0; 
SECONDS = .SECONDS + 1; 
IF .SECONDS EQLU 60 
THEN 
BEGIN 
SECONDS = 0; 
MINUTES = .MINUTES «+ 1; 
IF .MINUTES EQLU 60 
THEN 
BEGIN 


MINUTES = 0; 
HOURS = .HOURS + 1; 


END; 
END; ; 
END; a i ; 
IF .TICKS EQLU 0 ' IF ONE SECOND HAS ELAPSED ie 
THEN ! THEN : 
T_FLAG = TRUE; ' FLAG THE EVENT - 
ENDSRV; 
-SBTTL CLK.INT.SERV CLOCK INTERRUPT SERVICE ROUTINE 
000000G CLK. INT.SERV:: 
INC TICKS ; 
000000G 000000G oo ro nee H 
$ 
000000G CLR TICKS ; 
000000G INC SECONDS 3 
000000G 000074 cmMP SECONOS, #74 ; 
BNE 1$ 
000000G CLR SECONDS ; 
000000G INC MINUTES F 
000000G 000074 a > Manage ta ; 
$ 





SEQ 0145 


CZRCd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 49 
v02.0 CLOCK INTERRUPT SERVICE ROUTINE 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCDB ICZRCD2.SRC;8 (13) 
000054 005037 0000006 CLR MINUTES ; 2508 
000060 095237 0000006 INC HOURS 3 2509 
000064 005737 000000G 1s: TST TICKS ; 2517 
000070 001003 BNE 23 

000072 112737 000001 000000G MOVB #1,T.FLAG 3 2519 
000100 000002 2s: RTI : 2489 
: Routine Size: 33 words, Routine Base: ‘sCODE$ + 4206 


3; Maximum stack depth per invocation: 0 words 


_- 


CzRrRCD2 
vo2.0 


of ee of Gs Gt Gt OF GF Gs GF GF Gs Gt GF oe oe oF 
HH} 
pa a 
2S 

= PO PO 0 20 10 10 6 bb be be pe pe pe pe 


; Routine Size: 
; Maximum stack depth per invocation: 0 words 













SEQ 0146 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 50 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:[AZTEC.CZRCOBICZRCD2.SRC;8 (14) 
SSBTTL ‘GLOBAL ROUTINES’ 


GLOBAL ROUTINE COPY_BLK (SRC, DST, NWROS) : NOVALUE = 


: THE PURPOSE OF THIS ROUTINE IS TO TRANSFER A BLOCK OF MEMORY OF LENGTH 
: “NWRDS” FROM “SRC” TO “DST”. 
re 
INCR I FROM 1 TO .NWRDS DO ! FOR EACH WORD IN BLOCK 
BEGIN 
-OST = ..SRC; !' TRANSFER WORD FROM SOURCE TO DESTINATION 
OST = .DST + 2; ' ADVANCE DESTINATION ADDRESS 
SRC = .SRC + 2; ! ADVANCE SOURCE ADDRESS 
END; 
-SBTTL COPY.BLK GLOBAL ROUTINES 
COPY .BLK:: 
CLR RO s I 
BR 2s i 
000006 000004 1$: MOV 86(SP),a4(SP) ; SRC,DST 
000002 000004 ADD #2.,4(SP) ; *,DST 
000002 000006 ADD #2,6(SP) ; *,SRC 
2s: INC RO ‘iz 
000002 CMP RO,2(SP) ; I,NWROS 
BLE i$ 
RTS PC 3 
16 words, Routine Base: sCODE$ + 4310 


_—- 


CczRcd2 
vo2.0 


2539 
2540 


se GF GF Ge Gs GF Gs Gt Gt GH GF Gs OF Ge Gs GH Ss GH SH Gs Ge Ge Ge OF GF GH GH GH os Os os os os os 
~ 
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PMD PO PO 10 10 10 10 10 10 10 10 10 be be pe pe pe pe pe po pe pe pe 


010146 


016601 
010137 
010146 
012746 
004737 
062700 
010037 
010116 
012746 
004737 
062700 
010037 
017737 
010116 
012746 
004737 
062700 
010037 










SEQ 0147 
CZRCDBO RC2S5 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 51 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCDOB ICZRCD2.SRC;8 (15) 


GLOBAL ROUTINE SET_CPAR (CTLR) : NOVALUE = 


+ 


THIS ROUTINE SETS UP THE COMMONLY-USED CONTROLLER-RELATED DATA ITEMS 
FOR THE GIVEN CONTROLLER NUMBER. 


INPUTS: 
CTLR - CONTROLLER NUMBER 


IMPLICIT OUTPUTS: 

CCTLR - CURRENT CONTROLLER NUMBER 

CST_ADDR - ADDRESS OF CONTROLLER‘S STATUS TABLE 

DCT_ADDR - ADDRESS OF CONTROLLER'S DRIVER TABLE 

RC25_ADDR - ADDRESS OF CONTROLLER‘S IP REGISTER 

DMC_ADDR - ADDRESS OF CONTROLLER'S DM_COMM AREA 

OCL_X1,2 - STARTING/ENDING INDECES OF CONTROLLER'S OUTSTANDING 
COMMAND AREA COUTC_LIST, OUTC_TIMR) 

RPS_X1,2 - STARTING/ENDING INDECES OF CONTROLLER’S RETURN 
PACKET SAVE AREA (RP_SAVE) 


BEGIN 


CCTLR = .CTLR; ! SET CURRENT CONTROLLER NUMBER 
CST_ADDR = CST + (.CTLR * CST_LEN * 2); ! CALCULATE ADDRESS OF CONTROLLER’S CST 
DCT_ADDR = DCT + (.CTLR * DCT_LEN * 2); ! CALCULATE ADORESS OF CONTROLLER'S DCT 


RC25_ADDR = .CST_ADDR [IP_ADDR]; ! GET CONTROLLER'S DEVICE ADDRESS 
DMC_ADDR = DM_COMM + (.CTLR * DMC_LEN * 2); ! CALCULATE ADDRESS OF CONTROLLER‘S DM_COMM AREA 
OCL_Xi = .CTLR * OUTC_CNT; § STARTING INDEX OF CTLR‘S OUTC AREA 
OCL_X2 = .OCL_X1 + OUTC_CNT - 12; ! ENDING INDEX OF CTLR'S OUTC AREA 
RPS_X1 = .CTLR * RPS_LEN; ! STARTING INDEX OF CTLR‘S RETPKT SAVE AREA 
RPS_X2 = .RPS_X1 + RPS_LEN - 1; ! ENDING INDEX OF CTLR‘S RETPKT SAVE AREA 
END; 

-SBTTL SET.CPAR GLOBAL ROUTINES 

SET.CPAR:: 

MOV R1,-CSP) 3 
000004 MOV 4(SP),R1 ; CTLR,* 
000000G MOV R1,CCTLR 

MOV R1i,-(SP) F 
000016 MOV #16,-CSP) 
000000G JSR PC ,BL$MUL 
000000G ADD #CST,RO 
000000G MOV RO,CST.ADDR 

MOV R1,(SP) 8 
000022 MOV #22,-(CSP) 
000000G JSR PC, ,BL$MUL 
000000G ADD #DCT,RO 
000000G MOV RO,DCT.ADDR 
000000G 000000G MOV @CST.ADDR,RC25.ADDR F 

MOV R1,(SP) F 
000064 MOV #64,-(SP) 
000000G JSR PC ,BL$MUL 
000000G ADD #DM.COMM,RO 
000000G MOV RO,DMC.ADDR 












SEQ 0148 
P 


czRCd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;:8 
000106 010100 MOV R1,RO ; 
000110 006300 ASL RO 
000112 006300 ASL RO 
000114 006300 ASL RO 
000116 006300 ASL RO 
000120 010037 000000G MOV RO,OCL.X1 
000124 010037 000000G MOV RO,OCL.X2 ; OCL.X1,* 
000130 062737 000017 000000G ADD #17,0CL.xX2 
000136 010100 MOV R1,RO 3 
000140 006300 ASL RO 
000142 006300 ASL RO 
000144 006300 ASL RO 
000146 010037 000000G MOV RO,RPS.X1 
000152 010037 000000G MOV RO,RPS.X2 ; RPS.X1,* 
000156 062737 000007 000000G ADD #7,RPS.X2 
000164 062706 000010 ADD #10,SP : 
000170 012601 MOV (SP)+,R1 3 
000172 000207 RTS PC 
Routine Size: 62 words, Routine Base: $CODE$ + 4350 


Maximum stack depth per invocation: 6 words 















SEQ 0149 


CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (16) 
Ss Bre ft GLOBAL ROUTINE SET_UPAR COFFSET) : NOVALUE = 
: 2574 Il 
3 2578 1 te 
; 2576 1 ! THIS ROUTINE SETS UP THE COMMONLY-USED UNIT-RELATED DATA ITEMS FOR 
3 sare : ! THE CURRENT CONTROLLER AND GIVEN CST OFFSET. 
; H 
3 2579 1 ! INPUTS: 
3 2580 1 ! OFFSET - WORD OFFSET INTO CURRENT CONTROLLER'S CST WHICH 
8 2581 1 ! DESCRIBES A UNIT 
F 2582 1 ' 
8 2583 1 ! IMPLICIT INPUTS: 
3 ite: ; ! CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
H H 
3 2586 1 ! IMPLICIT OUTPUTS: 
3 2587 1 ! CUOFF - CURRENT UNIT'S CST OFFSET 
3 2588 1 ! CPLAT - CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
8 2589 1 : L$LUN - CURRENT UNIT NUMBER (DS UNIT NUMBER) 
3 ieee : ! T_ADDR - ADDRESS OF CURRENT UNIT'S STATISTICS BLOCK CTALLY) 
H !- 
3 2592 1 
3 2593 2 BEGIN 
3 2594 2 
: 2595 2 CUOFF = .OFFSET; 
$ 2596 2 CPLAT = .CST_ADDR [.OFFSET, P_ADDR); 
8 2597 2 L$LUN = .CST_ADDR [.OFFSET, P_UNIT]; 
3 2598 2 T_ADDR = TALLY + (.L$LUN * TALLY_LEN * 2); 
3 2599 2 
Fy 2600 1 END; 

-SBTTL SET.UPAR GLOBAL ROUTINES 
000000 010146 SET.UPAR:: 

MOV R1i,-(SP) ; 
000002 016637 000004 000000G MOV 4( SP), CUOFF ; OFFSET,+* 
000010 016600 000004 MOV 4(SP),RO ; CUOFF,«* 
000014 006300 ASL RO 
000016 063700 000000G ADD CST. ADDR ,RO 
000022 111037 000000G MOVB CRO), CPLAT 
000026 105037 000001G CLRB CPLAT+1 
000032 011001 MOV CRO),R1 ; 
000034 000301 SWAB R1 
000036 042701 177740 BIC #177740,R1 
000042 010137 000000G MOV R1,L$LUN 
000046 C * 46 MOV R1,-(SP) ; L$LUN,* 
000050 0.-.46 000060 MOV #60, -CSP) 
000054 OC -737 000000G JSR PC ,BL$MUL 
000060 062700 000000G ADD #TALLY,RO 
000064 010037 000000G MOV RO,T.ADDR 
000070 022626 CMP (SP)+,(SP)+ ; 
000072 012601 MOV (SP)+,R1 3 
000074 000207 RTS PC 
; Routine Size: 31 words, Routine Base: $CODE$ + 4544 


; Maxirum stack depth per invocation: 4 words 
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004137 


012703 
005001 
105761 
002026 
116661 
010103 
010146 
012746 
004737 
022626 
012702 
019004 
060204 





14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


CZRCDBO RC25 DISK EXERCISER 
GLOBAL ROUTINES 


GLOBAL ROUTINE GET_ENV (CTLR) = 


+ 


THIS ROUTINE SEARCHES THE MSCP ENVELOPE POOL ALLOCATION TABLE CENV_USE) 
FOR A FREE MSCP ENVELOPE TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS 
FOUND, THE ENVELOPE IS ZEROED OUT, AND THE ENVELOPE INDEX IS RETURNED 
TO THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 


ee ee ee ee a a 


INPUTS: 
CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION 
BEGIN 
LOCAL 
INDEX : WORD; 
INDEX = -1; 
INCR COUNT FROM 0 TO CENV_CNT - 1) DO ! FOR EACH ENTRY IN ALLOCATION TABLE 
BEGIN 
IF .ENV_USE [.COUNT] LSS 0 ! IF ENTRY INDICATES FREE ENVELOPE 
THEN ! THEN 
BEGIN 
ENV_USE [.COUNT]) = .CTLR; ! ALLOCATE ENVELOPE TO CONTROLLER 
INDEX = .COUNT; 
INCR J FROM 2 TO CENV_LEN - 1) DO ' ZERO OUT ENVELOPE 
MSCP_ENV [.COUNT, .J, ALLBIT] = 0; 
EXITLOOP; ! DONE 
END; 
END; 
RETURN .INDEX; 
END; 
-SBTTL GET.ENV GLOBAL ROUTINES 
000000G GET.ENV:: 
JSR R1, $SAVE4 3 
177777 MOV #-1,R3 ;.*, INDEX 
CLR R1 ; COUNT 
000000G 1$: dy _ USECR1) ; *CCOUNT) 
000014 000000G MOVB iacsP), ENV .USEC(R1) ; CTLR,*CCOUNT) 
MOV R1,R3 ; COUNT, INDEX 
MOV R1,-(SP) ; COUNT, 
000042 MOV #42,-(SP) 
000000G JSR PC ,,BL$MUL 
CMP (SP)+,(SP)+ 
000002 MOV #2,R2 3 *,J 
2s: MOV RO,R4 3 
ADD R2,R4 3; J.* 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB ICZRCD2.SRC;8 






SEQ Newsy 
54 
17) 


2601 
2618 
2620 
2623 


2627 


(Se a 





SEQ 0151 
cZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 55 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:({AZTEC.CZRCDOB ICZRCD2.SRC;8 (17) 
000054 006304 ASL R4 
000056 005064 000000G CLR MSCP .ENV(R4) 
000062 005202 INC R2 3: J 2629 
000064 020227 000041 CMP R2, #41 s J,* 
000070 003767 BLE 2$ 
000072 000404 BR 4$ ; 2625 
000074 005201 3$: INC R1 ; COUNT 2620 
000076 020127 000137 CMP R1,4#137 ; COUNT,# 
000102 003743 BLE 1$ 
000104 010300 4$: MOV R3,RO ; INDEX, 2613 
000106 000207 RTS PC 3 2601 
; Routine Size: 36 words, Routine Base: $sCODE$ + 4642 


; Maximum stack depth per invocation: 8 words 








SEQ 0152 


czrcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 56 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDOB IJCZRCD2.SRC;8 (18) 
3 2640 I GLOBAL ROUTINE PUT_ENV CINDEX) : NOVALUE = 

>; 2641 1 

3 2642 1 te 

8 2643 1 ! THE MSCP ENVELOPE DESIGNATED BY “INDEX” IS RETURNED TO THE POOL BY THIS 

3 2644 1 ! ROUTINE. 

3 2645 i !- 

8 2646 1 . 

3 2647 2 BEGIN 

8 2648 2 

3 2649 2 ENV_USE [.INDEX] = -1; 

5 2650 2 

8 2651 1 END; 


-SBTTL PUT.ENV GLOBAL ROUTINES 
000000 016600 000002 PUT.ENV:: 


MOV 2(SP),RO :; INDEX,* 2649 
000004 112760 000377 000000G MOVB #377, ENV.USECRO) 
000012 000207 RTS PC 3 2640 
; Routine Size: 6 words, Routine Base: ‘$CODE$ + 4752 


; Maximum stack depth per invocation: 0 words 




















SEQ 0153 





CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 57 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:({AZTEC.CZRCDB ICZRCD2.SRC:8 (19) 
8 2652 1 GLOBAL ROUTINE PUTA_ENV C(CTLR) : NOVALUE = 
3 2653 i 
: 2654 1 te 
3 2655 1 $ THIS ROUTINE DEALLOCATES ALL MSCP ENVELOPES WHICH HAVE BEEN ALLOCATED 
3 2656 1 ! TO A PARTICULAR CONTROLLER. 
3 2657 1 ! 
3 2658 1 ! INPUTS: 
3 2659 1 ! CTLR - CONTROLLER NUMBER 
3 2660 1 !- 
: 2661 1 
8 2662 2 BEGIN 
3 2663 2 
3 2664 2 INCR COUNT FROM O TO CENV_CNT - 1) DO ! FOR EACH ENTRY IN ALLOCATION TABLE 
H 2665 3 BEGIN 
3 2666 3 
; 2667 3 IF .ENV_USE [.COUNT] EQLU .CTLR ' IF ENVELOPE IS ALLOCATED TO GIVEN CONTROLLER 
F 2668 3 THEN ! THEN 
3 2669 3 ENV_USE [.COUNT] = -1; ' DEALLOCATE IT 
8 2670 3 
3 2671 2 END; 
3 2672 2 
3 2673 1 END; ' ROUTINE PUTA_ENV 

-SBTTL PUTA.ENV GLOBAL ROUTINES 
000000 010146 PUTA.ENV:: 

MOV R1i,-C(SP) 3 2652 
000002 005000 CLR RO ; COUNT 2664 
000004 116001 000000G 1$: MOVB ENV.USECRO),R1 ; *(COUNT),# 2667 
000010 020166 000004 CMP R1,4(SP) ; *,CTLR 
000014 001003 BNE 2s 
000016 112760 000377 000000G MOVB #377 ,ENV.USECRO) ; *,*(COUNT) 
000024 005200 2s: INC RO ; COUNT 
000026 020027 000137 cmMP RO, #137 ; COUNT,«# 
000032 003764 BLE 1$ 
000034 012601 MOV (SP)+,R1 ; 
000036 000207 RTS PC 
; Routine Size: 16 words, Routine Base: ‘$CODE$ + 4766 


; Maximum stack 


depth per invocation: 2 words 
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012703 
005001 
105761 
002025 
116661 
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060204 










SEQ 0154 
P 5 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:[ AZTEC. CZRCDB JCZRCD2.SRC;8 (20) 
GLOBAL ROUTINE GET_RETPKT (CTLR) = 
te 
: THIS ROUTINE SEARCHES THE RETURN PACKET POOL ALLOCATION TABLE C(RP_USE) 
H FOR A FREE RETURN PACKET TO ALLOCATE TO THE GIVEN CONTROLLER. IF ONE IS 
H FOUND, THE PACKET IS ZEROED OUT, AND THE PACKET INDEX IS RETURNED TO 
: THE CALLER. OTHERWISE, A -1 IS RETURNED INDICATING NONE AVAILABLE. 
a 
H INPUTS: 
: CTLR - CONTROLLER NUMBER REQUESTING ALLOCATION 
. 
BEGIN 
LOCAL 
INDEX : WORD; 
INDEX = -1; ! ASSUME NONE AVAILABLE 
INCR COUNT FROM O TO CRP_CNT - 1) DO ! FOR EACH ENTRY IN TABLE 
BEGIN 
i {.COUNT] LSS 0 ! IF FREE RETPKT IS FOUND 
HEN 
BEGIN 
RP_USE [.COUNT] = .CTLR; ' ALLOCATE RETURN PACKET TO CONTROLLER 
INDEX = .COUNT; 
INCR J FROM O TO CRP_LEN - 1) DO ! ZERO OUT RETPKT 
RETPKT [.COUNT, .J, ALLBIT]) = 0; 
EXITLOOP; ! DONE 
END; 
END; 
RETURN .INDEX; ! RETURN PACKET INDEX (OR -1) TO CALLER 
END; 
-SBTTL GET.RETPKT GLOBAL ROUTINES 
000000G GET.RETPKT:: 
JSR R1, $SAVE4 ; 2674 
177777 MOV #-1,R3 ; *, INDEX 2691 
CLR Ri ; COUNT 2693 
000000G 1$: jig 7, eee ; *( COUNT) 2696 
$ 
000014 000000G MOVB 14(SP),RP.USECR1) ; CTLR,*CCOUNT) 2700 
MOV R1,R3 ; COUNT, INDEX 
MOV R1,-CSP) ; COUNT, # 
000030 MOV #30,-(CSP) 
000000G JSR PC ,BLSMUL 
CMP (SP)+,(SP)+ 
CLR R2 s J 
2s: MOV RO,R4 H 
ADD R2,R4 3 J, 





CzRC02 
vo2.0 


; Routine Size: 


CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCOB ICZRCD2.SRC;8 
ASL R4 
000000G CLR RETPKT(R4) 
INC R2 3 J 
000027 cmp R2, 027 3; J. 
BLE 2$ 
BR Aas 3 
3$: INC R1 ; COUNT 
000037 CMP R1,437 ; COUNT,« 
BLE i$ 
4$: MOV R3,RO : INDEX,« 
RTS PC 3 
35 words, Routine Base: ‘$sCODE$ + 5026 


; Maximum stack depth per invocation: 8 words 








SEQ 0155 
Page 59 
(20) 


2702 


2698 
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2686 
2674 








' 
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i 
o 
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000000 016600 


000004 112760 
000012 000207 


: Routine Size: 


SEQ 0156 
Pp 60 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOB ICZRCD2.SRC;8 oe 21) 
GLOBAL ROUTINE PUT_RETPKT CINDEX) : NOVALUE = 


CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 


fe 


H THE RETURN PACKET DESIGNATED BY “INDEX” IS RETURNED TO THE POOL BY THIS 
! ROUTINE. 
BEGIN 
RP_USE [.INDEX] = -1; 
END; 
-SBTTL PUT.RETPKT GLOBAL ROUTINES 
000002 PUT.RETPKT:: 
MOV 2(SP),RO ; INDEX,« 2722 
000377 000000G MOVB #377 ,RP.USECRO) 
RTS PC ’ 2713 
6 words, Routine Base: ‘$sCODE$ + 5134 


+ Maximum stack depth per invocation: 0 words 














czrcd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 61 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCDB ICZRCD2.SRC;8 (22) 
‘* 2725 1 GLOBAL ROUTINE GET_IO_BUFF CADDR) : NOVALUE = 
3° 2726 1 
3 2727 1 te 
3 2728 1 : THIS ROUTINE HANDLES THE ALLOCATION OF AN I/O BUFFER FROM THE BUFFER 
8 2729 1 : POOL. 
8 2730 1 H 
aisha & H INPUTS: 
; ihe : H ADDR - ADDRESS TO STORE THE 2-WORD BUFFER DESCRIPTOR 
3 $ 
3 2734 i : IMPLICIT INPUTS: 
Fy 2735 1 ! CCTLR - CURRENT CONTROLLER NUMBER 
3 2736 i H 
8 gis: i : OUTPUTS: 
3 2738 i : THE ALLOCATED BUFFER'S DESCRIPTOR IS LOADED INTO THE TWO 
8 2739 i : WORDS AT “ADDR” AND “ADDR + 2”. OTHERWISE, A “-1" IS RETURNED 
: Ley : : AT “ADDR” IF NO BUFFERS ARE AVAILABLE. 
3 41 !- 
8 2743 2 BEGIN 
3 2744 2 
& 2745 2 -ADDR = -1; ' ASSUME FAILURE 
3 2746 2 INCR COUNT FROM 0 TO (.NUM_BUFF - 1) DO ! FOR EACH ENTRY IN BUFFER TABLE 
3 2747 3 BEGIN 
: 2749 3 IF .BUFF_OWN [.COUNT] LSS 0 ! IF BUFFER IS FREE 
3 2750 3 THEN ! THEN 
3 275i 4 BEGIN 
3 2753 4 BUFF _OWN [.COUNT] = .CCTLR; : ALLOCATE BUFFER TO CONTROLLER 
3 2754 4 -ADDR = .BUFF_DESC [.COUNT, BD_LOJ); ! RETURN BUFFER DESCRIPTOR 
s 2755 4 €.ADDR + 2) = .BUFF_DESC [.COUNT, 8D HI); 
3 2756 4 EXITLOOP; ! DONE 
Fy 2758 3 END; 
3 2760 2 END; ! BUFFER TABLE LOOP 
s 2762 i END; ' ROUTINE GET_IO_BUFF 

” ~ hon GET.I0.BUFF GLOBAL ROUTINES . 
000000 004137 000000G GET.I0. BUFF : 

JSR. R1, $SAVE2 a 2725 
000004 016602 000010 MOV 10(SP),R2 ; ADOR,« ” 2745 
000010 012712 177777 MOV #-1,(R2) i 
000014 005001 CLR R1 ; COUNT 2746 
000016 000420 BR 3$ 
000020 105761 000000G 1$: TSTB BUFF .OWN(R1) 3; *(COUNT) 2749 
000024 002014 BGE 2s 
000026 113761 000000G 000000G MOVB CCTLR, BUFF .OWN(R1) ; *,*(COUNT) 
000034 010100 MOV R1,R0 ; COUNT,« 
000036 005300 ASL RO 
000040 006300 ASL RO 
000042 016012 000000G MOV BUFF .DESC(RO), (R2) 
000046 016062 000002G 000002 MOV BUFF .DESC+2(RO),2(R2) F 
000054 000207 RTS PC 3 
000056 005201 2s: INC R1 ; COUNT 
000060 020137 000000G 3$; CMP R1,NUM.BUFF ; COUNT,« 
000064 002755 BLT i$ 
900066 000207 RTS PC 3 


Routine Base: $sCODE$ + 5150 


4 words 


; Routine Size: 28 words, 
; Maximum stack depth per invocation: 











SEQ 0157 


a 









SEQ 0158 

CcZzRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 63 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCOB ICZRCD2.SRC;8 (23) 
: 2763 1 GLOBAL ROUTINE PUT_IO_BUFF (ADDR) : NOVALUE = 
ry 2764 1 
3 2765 1 te 
3 2766 1 : THIS ROUTINE HANOLES THE DEALLOCATION OF AN I/0 BUFFER, RETURNING IT 
8 2767 1 : TO THE BUFFER POOL. 
’ 2768 1 : 
Fy 2769 1 ! INPUTS: 
Fy 2770 1 : ADOR - ADDRESS OF THE 2-WORD BUFFER DESCRIPTOR TO BE 
F} 2771 1 : DEALLOCATED 
Fy 2772 1 !- 
Fy avis i 
8 2774 2 BEGIN 
3 2775 2 
Fy 2776 2 INCR COUNT FROM O TO (.NUM_BUFF - 1) DO ' FOR EACH ENTRY IN BUFFER TABLE 
8 2777 3 BEGIN 
3 2778 3 
3 2779 4 IF ((.BUFF_DESC [.COUNT, BD_LO) EQLA ..ADDR) AND ! IF THIS IS THE BUFFER'S ENTRY 
8 2780 4 (.BUFF_DESC [.COUNT, BD_HI) EQLU .(.ADDR + 2))) 
3 2781 3 THEN ' THEN 
3 2782 4 BEGIN 
8 2783 4 
3 2784 4 BUFF _OWN [.COUNT]) = -1; ! DEALLOCATE BUFFER 
; 2785 4 EXITLOOP; ! DONE 
F} 2786 4 
: 2787 3 END; 
3 2788 3 
3 2789 2 END; ' BUFFER TABLE SEARCH LOOP 
3 2790 2 
3 2791 1 END; ! ROUTINE PUT_IO_BUFF 

-SBTTL PUT.IO.BUFF GLOBAL ROUTINES 
000000 004137 000000G PUT.IO. BUFF 

JSR. R1,$SAVE2 3 2763 
000004 005002 CLR R2 ; COUNT 2776 
000006 000422 BR 3$ 
000010 010201 1$: MOV R2,R1i ; COUNT,« 2779 
000012 006301 ASL R1 
000014 006301 ASL R1 
000016 026176 000000G 000010 CMP BUFF .DESC(R1),810( SP) ; *,ADOR 
000024 001012 BNE 2s 
000026 016600 000010 MOV 10(SP),RO ; ADOR,« 2780 
000032 026160 000002G 000002 CMP BUFF .DESC+2(R1),2CRO) 
000040 001004 BNE 2s 
000042 112762 000377 000000G MOVB #377 ,BUFF .OWNCR2) ; *,*(COUNT) 
000050 000207 RTS PC 3 
000052 005202 2s: INC R2 ; COUNT 
000054 020237 000000G 3$: CMP R2,NUM.BUFF ; COUNT,« 
000060 002753 BLT i$ 
000062 000207 RTS PC 3 

Routine Size: 26 words, Routine Base: ‘sCODE$ + 5240 


Maximum stack depth per invocation: 4 words 








CzRC02 
vo2.0 


os Ge Gt Gf G+ Gt Gt GF Gs Gt Gs Ge GF Gs Ge oe os 6s oe 
f 
@ 
o 
= 
PPO ON WO 0 10 10 ee 


000000 010146 


000002 005000 
000004 000411 
000006 116001 
000012 020137 
000016 001003 
000020 112760 
009026 005200 
000030 020037 
000034 002764 
000036 012601 
000040 000207 


; Routine Size: 
; Maximum stack 















SEQ 0159 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 64 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB JCZRCD2.SRC;8 (24) 


GLOBAL ROUTINE PUTA_BUFF : NOVALUE = 


! THIS ROUTINE DEALLOCATES ALL 1/0 BUFFERS WHICH HAVE BEEN ALLOCATED TO 

: THE CURRENT CONTROLLER (CCTLR). 

e. 

BEGIN 

INCR COUNT FROM 0 TO (.NUM_BUFF - 1) DO ! FOR EACH ENTRY IN BUFFER TABLE 
BEGIN 


IF .BUFF_OWN [.COUNT] EQLU .CCTLR c— BUFFER IS 4LLOCATED TO THE CURRENT CONTROLLER 
THEN 


BUFF _OWN [.COUNT] = -1; $ DEALLOCATE IT 
END; ' BUFFER TABLE ENTRY LOOP 
END; ! ROUTINE PUTA_BUFF 
-SBTTL PUTA.BUFF GLOBAL ROUTINES 
PUTA.BUFF: : 
MOV R1i,-(SP) 3 2792 
ae e ; COUNT 2801 
000000G 1$: MOVB BUFF .OWNCRO),R1 ; *C(COUNT),# 2804 
000000G CMP R1,CCTLR 
BNE es 
000377 000000G MOVB #377 ,BUFF .OWNCRO) ; *,*C(COUNT) 
2s: INC RO ; COUNT 
000000G 3$: CMP RO,NUM. BUFF ; COUNT,* 
BLT i$ 
MOV (SP)+,R1i 3 
RTS PC 
17 words, Routine Base: $sCODE$ + 5324 


depth per invocation: 2 words 


a re NSE RES A RRA A SE A A RRA eS SS 








GET NEXT RETPKT INDEX 
ADVANCE “OUT” POINTER 
z BEYOND END OF QUEUE 


HEN 
SET POINTER TO BEGINNING OF QUEUE 
RETURN INDEX TO CALLER 


INDEX = .I100Q [.I00Q_0UT); 
I0DQ_OUT = .IODQ_OUT + 1; 
IF .IODQ_OUT GEQU IODQ_LEN 
THEN 

IODQ_OUT = 0; 
RETURN . INDEX; 


SEQ 01606 

czRcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 65 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDBICZRCD2.SRC;:8 (25) 
3 2811 1 GLOBAL ROUTINE OUT_IODQ = 
3 2812 1 
8 2813 1 te 
3 2814 1 : THIS ROUTINE RETURNS TO THE CALLER THE NEXT RETPKT INDEX TO BE 
3 2815 i ! PROCESSED FROM THE I/0 DONE QUEVE (IODQ). THE “OUT” POINTER TO THE 
H 2816 1 : QUEVE IS ALSO UPDATED. 
Fy 2817 1 H 
3 2818 1 ! INPUTS: 
: 2819 1 H NONE . 
Fy 2820 1 H 
Fy 2821 1 ! OUTPUTS: 
8 2822 1 ! THE INDEX OF THE NEXT RETPKT TO BE PROCESSED. 
Fy 2823 1 $- 
3 2824 1 
H 2825 2 BEGIN 
Fy 2826 2 
3 2827 2 LOCAL 
H 2828 2 INDEX : WORD; 
Fy 2829 2 
H 2 
3 2 
8 2 
3 2 
H 2 
3 2 
Fy 2836 2 
3 2837 1 END; 

-SBTTL OUT.IODQ GLOBAL ROUTINES 
000000 013700 000000G OUT. IODQ:: 

MOV I0DQ.OUT,RO ; 
000004 116000 9000000G MOVB IODQCRO),RO ; *, INDEX 
000010 042700 177400 BIC #177400,RO0 ; *, INDEX 
000014 005237 000000G INC I0DQ. OUT : 
000020 023727 000000G 000040 CMP I0DQ.OUT , #40 ; 
000026 103402 BLO 1$ 
000030 005037 000000G CLR I0DQ.0UT 3 
000034 000207 1$: RTS PC 3 
; Routine Size: 15 words, Routine Base: $CODE$ + 5366 
; Maximum stack depth per invocation: 0 words 





Re ce TT 









SEQ 0161 


CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 66 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 (26) 
3 2838 i GLOBAL ROUTINE IN_IODQ (INDEX) : NOVALUE = 
: 2839 1 
’ 2840 1 Se 
: 2841 1 : THIS ROUTINE INSERTS A RETURN PACKET INDEX INTO THE I/0 DONE QUEUE, AND 
8 2842 1 : UPDATES THE IODQ_IN POINTER. 
3 2843 1 !- 
8 2844 1 
3 2845 2 BEGIN 
3 2846 2 
$ 2847 3 IF (€CC.IODQ_IN + 1) NEQU .IODQ_OUT) AND ! IF I/0 DONE QUEVE IS NOT FULL 
3 2848 3 (.IO0DQ_IN - (IODQ_LEN - 1) NEQU .I0DQ_0UT)) 
3 2849 2 N ! THEN 
3 2850 3 BEGIN 
3 2851 3 
3 2852 3 I00Q [.IO0DQ_IN) = .INDEX; ! LOAD INDEX INTO QUEUE 
3 2853 3 IODQ_IN = .IODQ_IN + 1; ' ADVANCE “IN” POINTER 
8 2854 3 IF .I0DQ_IN GEQU IODQ_LEN ! IF BEYOND END OF QUEUE 
3 2855 3 THEN ! THEN 
3 ates 4 I0DQ_IN = 0; ! CYCLE BACK TO BEGINNING OF QUEUE 
3 2858 2 END; ! IF I0DQ IS NOT FULL 
3 2859 2 
3 2860 i END; 

-SBTTL IN.IODQ GLOBAL ROUTINES 
000000 010146 IN.IODQ:: 

MOV R1,-(SP) ; 
000002 013701 000000G MOV I0DQ.IN,R1 3 
000006 010100 MOV R1,R0 
000010 005200 INC RO 
000012 020037 000000G CMP RO, I0DQ. OUT 
000016 001421 BEQ 1$ 
000020 010100 MOV R1,RO0 3 
000022 162700 000037 SUB #37,R0 
000026 020037 000000G CMP RO, I0DQ. OUT 
000032 001413 BEQ i$ 
000034 116661 000004 000000G MOVB 4(SP), I0DQ(R1) ; INDEX,* 
000042 005237 000000G INC I00Q.IN 3 
000046 023727 000000G 000040 CMP I0DQ.IN, #40 3 
000054 103402 BLO 1$ 
000056 005037 000000G CLR I0DQ.IN 3 
000062 012601 1$: MOV (SP)+,R1 F 
000064 000207 RTS PC 
; Routine Size: 27 words, Routine Base: $CODE$ + 5424 
; Maximum stack depth per invocation: 2 words 


















SEQ 0162 
CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 67 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDBICZRCD2.SRC;8 (27) 


F 2861 1 GLOBAL ROUTINE DROP_CTLR (CTLR, REASON) : NOVALUE = 
$ 2862 1 
3 2863 1 te 
3 2864 1 : THIS ROUTINE DROPS ALL UNITS ASSOCIATED WITH THE CONTROLLER DESIGNATED 
8 2865 1 ! BY "CTLR”. THE REASON FOR DROPPING THE DEVICE IS LOADED INTO THE DUR 
3 2866 1 ! VECTOR FOR EACH ATTACHED UNIT. THIS DATA IS THEN USED BY THE DROP UNIT 
8 2867 1 ! SECTION. 
8 2868 1 !- 
8 2869 i 
3 2870 2 BEGIN 
3 2871 2 
3 2872 2 LOCAL 
3 2873 2 UNIT; 
3 2874 2 
8 2875 2 INCR OFFSET FROM (O + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT IN CST 
3 2876 3 BEGIN 
8 2877 3 
3 2878 3 IF .CST [.CTLR, .OFFSET, P_PRES] EQLU PRESENT ! IF UNIT IS CONFIGURED 
3 2879 3 THEN 
’ 2880 4 BEGIN 
3 2881 4 
$ 2882 4 UNIT = .CST [.CTLR, .OFFSET, P_UNIT]; ! GET DS UNIT NUMBER 
3 2883 4 DUR [.UNIT] = .REASON; ! SET REASON FOR DROPPING UNIT 
8 2884 4 DODU (.UNIT); ! DROP UNIT 
3 2885 4 
F 2886 3 : END; 
s 2888 2 END; 
Fy 2890 1 END; 

-SBTTL DROP.CTLR GLOBAL ROUTINES 
000000 004137 000000G DROP.CTLR:: 

JSR R1,$SAVE3 3 2861 
000004 016646 000014 MOV 14(SP),-CSP) ; CTLR,* 2878 
000010 012746 000007 MOV #7,-(CSP) 
000014 004737 000000G JSR PC ,BL$MUL 
000020 010003 MOV RO,R3 
000022 012702 000003 MOV #3,R2 ; *, OFFSET 2875 
000026 010300 1$: MOV R3,RO 3 2878 
000030 060200 ADD R2,RO0 ; OFFSET, 
000032 006300 ASL RO 
000034 032760 040000 000000G BIT #40000 ,CSTC(RO) 
000042 001412 BEQ 2$ 
000044 016001 000000G MOV CSTCRO),R1 ; *,UNIT 2882 
000050 000301 SWAB Ri ; UNIT 
000052 042701 177740 BIC #177740,R1 ; *,UNIT 
000056 115661 000016 000000G MOVB 16(SP),DURCR1) ; REASON, *C(UNIT) 
009064 010100 MOV R1,RO ; IT,* 
000066 104451 TRAP 51 
000070 005202 2s: INC R2 ; OFFSET 
000072 020227 000006 CMP R2,%6 ; OFFSET,« 
000076 003753 BLE 1$ 
000100 022626 CMP_ (SP)+,(SP)+ ; 
000102 000207 RTS PC 3 
; Routine Size: 34 words, Routine Base: ‘$CODE$ + 5512 


; Maximum stack depth per invocation: 8 words 


| 
a 











SEQ 0163 


CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 69 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 (28) 
>; 2891 1 GLOBAL ROUTINE DRV_CTLERR C(CTLR) : NOVALUE = 
>; 2892 1 
>; 2893 1 te 
> 2894 i ! THIS ROUTINE IS CALLED BY DRV_TIMCHK AND FATAL_ERROR WHENEVER AN 
: 2895 1 ! UNRECOVERABLE CONTROLLER ERROR HAS BEEN DETECTED. ITS PURPOSE IS TO 
>; 29 1 H CLEAN UP ALL CONTROLLER-RELATED DATA IN THE “DRIVER” PORTION OF THE 
>; 2897 1 ! PROGRAM. THIS INCLUDES MARKING THE CONTROLLER OFFLINE, CLEARING THE 
8 2898 1 ! C-RING COUNT, AND DEALLOCATING MSCP ENVELOPES DESCRIBED IN THE RESPONSE 
3 ote : H RING AND OUTSTANDING COMMAND AREA COUTC_LIST). 
H $ 
>: 2901 1 ! INPUTS: 
3 2902 1 ! CTLR - DYING CONTROLLER NUMBER 
3 2903 1 !- 
3 2904 1 
8 2905 2 BEGIN 
3 2906 2 
F 2907 2 LOCAL 
8 2908 2 D_ADOR : REF BLOCK [DCT_LEN, WORD] FIELD (DC_FIELDS), ! CONTROLLER'S DCT ADDRESS 
3 2909 2 INDEX : WORD, 
8 2910 2 STIDX : WORD, ! STARTING OUTC INDEX 
3 Souk 4 ENDIOX : WORD; ' ENDING OUTC INDEX 
s 2013 2 D_ADDR = DCT + (.CTLR * DCT_LEN * 2); ! GET CONTROLLER'S DCT ADDR 
3 2914 2 D_ADDR [WORDO] = 0; ! MARK DCT OFFLINE AND CLEAR CRING_CNT 
3 2915 2 PUTA_ENV (.CTLR); ' RELEASE ALL ENVELOPES ALLOCATED TO CONTROLLER 
3 2916 2 STIDX = .CTLR * OUTC_CNT; ! START OF CTLR’'S OUTC_LIST AND _TIMR 
F 2917 2 ENDIDX = .STIDX + OUTC_CNT - 1; ! END OF OUTC 
$ 2918 2 INCR COUNT FROM .STIDX TO .ENNIDX DO ! FOR EACH OUTC ENTRY 
8 2919 3 BEGIN 
3 2920 3 
F 2921 3 OUTC_TTMR [.COUNT] = 0; ! TURN OF COMMAND TIMER 
F can : OUTC_LIST [.COUNT] = -1; ! INIT SLOT 
3 2924 2 END; ! OUTC SLOT LOOP 
8 2925 2 
F 2926 1 END; ' ROUTINE DRV_CTLERR 

-SBTTL DORV.CTLERR GLOBAL ROUTINES 
000000 004137 000000G DRV.CTLERR:: 

JSR R1,$SAVE2 3 2891 
000004 016601 000010 MOV 10(SP),R1 ; CTLR,* 2913 
000010 010146 MOV R1,-(SP) 
000012 012746 000022 MOV #22,-CSP) 
000016 004737 000000G JSR PC ,BL$MUL 
000022 062700 000000G ADD #DCT,RO 
000026 005010 CLR CRO) ; D.ADDR 2914 
000030 010116 MOV R1,(SP) ; 2915 
000032 004737 004766' JSR PC ,PUTA. ENV 
000036 010100 MOV R1,RO ; 2916 
000040 006300 ASL RO 
000042 006300 ASL RO 
000044 006300 ASL RO 
000046 006300 ASL RO 
000050 010002 MOV RO,R2 ; STIDX,ENDIDX 2917 
000052 062702 000017 ADD #17,R2 : *,ENDIDX 
000056 010001 MOV RO,R1 ; STIDX,COUNT 2918 
















SEQ 0164 
CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 70 
(28) 


vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOB ICZRCD2.SRC;8 


000060 005301 DEC Ri ; COUNT 

000062 000407 BR 2s 

000064 010100 1$: MOV R1,R0 ; COUNT,« 2921 
000066 006300 ASL RO 

000070 005060 000000G CLR OUTC. TIMRCRO) 

000074 112761 000377 000000G MOVB #377 ,QUTC.LISTCR1i) ; *,*(COUNT) 2922 
000102 005201 2s: INC R1 ; COUNT 2918 
000104 020102 CMP R1,R2 ; COUNT,ENDIDX 

000106 003766 BLE 1$ 

000110 022626 CMP (SP)+,(SP)+ 3 2905 
000112 000207 RTS PC 3 2891 
; Routine Size: 38 words, Routine Base: $CODE$ + 5616 


; Maximum stack depth per invocation: 6 words 
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SEQ 0165 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 71 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER $1: (AZTEC. CZRCDB JCZRCD2.SRC;8 (29) 


GLOBAL ROUTINE HARD_ERR CERRCNT) : NOVALUE = 


a 


THIS ROUTINE IS CALLED BY IO_RETPKT, DM_TALLY, AND OTHERS TO UPDATE THE 
HARD ERROR STATISTIC FIELD FOR THE CURRENT UNIT. IF THE HARD ERROR 
COUNT HAS EXCEEDED THE OPERATOR-SPECIFIED LIMIT, THEN THE UNIT IS 
DROPPED FROM TESTING. 


INPUTS: 
ERRCNT - NUMBER OF HARD ERRORS TO ADD TO CURRENT TOTAL 


IMPLICIT INPUTS: 
L$LUN - CURRENT UNIT NUMBER 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
CUOFF - CST OFFSET FOR CURRENT UNIT 
T_ADDR - ADDRESS OF CURRENT UNIT’S STATISTICS BLOCK (TALLY) 


BEGIN 
T_ADDR [ER_HRD] = .T_ADDR [ER_HRD] + .ERRCNT; !' UPDATE UNIT'S HARD ERROR COUNT 
IF .SWP_ERROR NEQU 0 ! IF THE USER SPECIFIED A HARD ERROR LIMIT 
THEN ! THEN 
BEGIN 
IF .T_ADDR [ER_HRD] GEQU .SWP_ERROR ! IF HARD ERROR LIMIT REACHED 
THEN ! THEN 
BEGIN 
IF .CST_ADDR [.CUOFF, P_STAT] EQLU ONLINE ! IF UNIT IS STILL ONLINE 
THEN ! THEN 
BEGIN 
DUR [.L$LUN] = DU_HERR; ' LOAD REASON TO DROP UNIT 
DODU (.L$LUN); ! DROP UNIT 
END; 
END; ! IF HARD ERROR LIMIT REACHED 
END; ! IF THE USER SPECIFIED A HARD ERROR LIMIT 
END; ! ROUTINE HARD_ERR 
-SBTTL HARD.ERR GLOBAL ROUTINES 
HARD.ERR:: 
MOV Ri,-CSP) 3 
000000G MOV T. ADDR ,RO 3 
000004 000030 ADD 4(SP),30(RO) ; ERRCNT,« 
000000G MOV SWP.ERROR,R1 s 
BEQ 1$ 
000030 CMP 30(RO),R1 ; 
BLO 1$ 
000000G MOV CUOFF ,RO 3 
ASL RO 
000000G ADD CST. ADDR ,RO 








CzRCd2 CZRCOBO RC25 DISK EXERCISER 
vo2.0 GLOBAL ROUTINES 


000042 032710 020000 

000046 001406 

000050 013700 0000006 

000054 112760 000003 0000006 
000062 104451 


000064 012601 1$: 
000066 000207 
; Routine Size: 28 words, Routine Base: 


; Maximum stack depth per invocation: 3 words 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


BIT area man 


MOV L$LUN,RO 
MOVB #3 ,DUR(RO) 


51 
MOV (SP)+,R1 
PC 


sCODE$ + 5732 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB JCZRCD2.SRC;8 


SEQ 0166 
Page 72 
(29) 
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CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 
GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER $1: (AZTEC. CZRCOB ICZRCD2.SRC;8 


GLOBAL ROUTINE UPD_IOC (ADDR, COUNT) : NOVALUE = 


* 


THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY 
FOR ALL I/0 TRANSFER RETURN PACKETS WITH “SUCCESS” STATUS CODES, AND 
(B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINING THE 
COMMUNICATION AREA (DM_COMM). ITS PURPOSE IS TO UPDATE THE I/0 COUNT 
(NUMBER OF READS, WRITES, OR SEEKS) FOR THE CURRENT UNIT. 


AFTER THE LOW-ORDER FIELD OF THE APPROPRIATE COUNT IS UPDATED, THIS 
ROUTINE CHECKS FOR ONE OF TWO OVERFLOW CONDITIONS: (A) IF THE 
HIGH-ORDER FIELD OF THE COUNT IS ZERO, THEN THE LOW-ORDER FIELD IS 
CHECKED FOR EXCEEDING 65,000. IF TRUE, THEN THE HIGH-ORDER FIELD IS 
LOADED WITH 65 (FOR 65,000) AND THE LOW-ORDER FIELD IS REDUCED BY 
65,000. (B) IF THE HIGH-ORDER FIELD OF THE UPDATED COUNT IS NON-ZERO, 
THEN THE LOW-ORDER FIELD IS CHECKED FOR EXCEEDING 1000. IF TRUE, THEN 
THE HIGH-ORDER FIELD IS INCREMENTED BY 1 FOR EACH 1000 SUBTRACTED FROM 
THE LOW-ORDER FIELD. 


INPUTS: 
ADDR - ADDRESS OF THE LOW-ORDER FIELD OF THE I/0 COUNT TO BE 
UPDATED CIN THE CURRENT UNIT‘S STATISTICS TABLE (TALLY)) 
COUNT - AMOUNT TO BE ADDED TO THE I/0 COUNT 
BEGIN 
-ADDR = ..ADDR + .COUNT; ! UPDATE THE COUNT (LOW-ORDER FIELD) 
IF .€. ADDR + 2) EQLU 0 ! IF HIGH-ORDER FIELD IS ZERO 
THEN ! THEN 
BEGIN 
IF ..ADDR GEQU 65000 ' IF LOW-ORDER FIELD EXCEEDS 65,000 
THEN ! THEN 
BEGIN 
-ADDR = ..ADDR - 65000; ' BECOMES LOW-ORDER 1000 
(.ADDR + 2) = 65; ! HIGH-ORDER (TIMES 1000) 
END; 
END 
ELSE ! ELSE - HIGH-ORDER FIELD IS X1000 
BEGIN 


oe GEQU 1000 DO WHILE LOW-ORDER FIELD EXCEEDS 1000 


C2 RBin ASO EAS. ays a, REARS ABG ROH gE TEL 
END; 
END; 
END; ! ROUTINE UPD_IOC 





SEQ 0167 
Page 7 
(30) 









SEQ 0168 
Pp 74 





CzRcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 

vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:{AZTEC. CZRCOB JCZRCD2.SRC;8 (30) 
-SBTTL UPD.IOC GLOBAL ROUTINES 

000000 C¢6:0146 UPD.IOC:: 

000002 016600 000006 MOV 6(SP),RO ; ADOR,* 

000006 066610 000004 ADD 4(SP), (RO) ; COUNT,« 

000012 012701 000002 MOV #2,R1 5 

000016 060001 ADD RO,R1 

000020 005711 TST (R1) 

000022 001010 BNE is 

000024 021027 176750 CMP (RO), #176750 ; 

000030 103414 BLO 2s 

000032 062710 001030 ADD #1030, (RO) F 

000036 012711 000101 MOV #101,(R1) 3 

000042 000407 BR 2s : 

00Cl44 021027 001750 1$: CMP CRO), #1750 ; 

000050 103404 BLO 2s 

000052 162710 001750 SUB #1750, (RO) 3 

000056 005211 INC (R1) 3 

000060 000771 BR i$ : 

000062 012601 2s: MOV (SP)+,R1 8 

000064 000207 RTS PC 

; Routine Size: 27 words, Routine Base: sCODE$ + 6022 


; Maximum stack depth per invocation: 2 words 








CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32: 

3026 1 GLOBAL ROUTINE OVF_CHK CADDR) : NOVALUE = 

3027 1 

3028 1 te 

3029 1 ! THIS ROUTINE IS CALLED (A) DURING THE MULTI-ORIVE SUBTEST FROM MD_TALLY 

3030 1 ! FOR ALL _I/0 TRANSFER RETURN PACKETS WITH “SUCCESS” STATUS CODES, AND 

3031 1 ! (B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINING THE 

3032 1 ! COMMUNICATION AREA (OM_COMM). ITS PURPOSE IS TO CHECK FOR OVERFLOW IN 

3033 1 ! CERTAIN STATISTICAL FIELDS OF THE CURRENT UNIT. SPECIFICALLY, THE 

3034 1 ! LOW-ORDER FIELD OF THE NUMBER OF BYTES READ OR WRITTEN IS CHECKED FOR 

3035 i ! EXCEEDING 1000. IF TRUE THEN THE HIGH-ORDER COUNT IS INCREMENTED. IF 

aoe : ! THAT EXCEEDS 1000, THEN THE MEGABYTE COUNT IS INCREMENTED. 

4 

3038 1 ! INPUTS: 

3039 1 ! ADDR - ADDRESS OF THE BR_LO OR BW_LO FIELD FOR THE CURRENT UNIT 

oe ! (SEE STATISTIC TABLE (TALLY) LAYOUT) 

1 !- 

3043 2 BEGIN 

3044 2 

3045 2 WHILE ..ADDR GEQU 1000 DO ! IF LO-ORDER OVERFLOW 

3046 3 BEGIN 

3047 3 

3048 3 -ADDR = ..ADDR - 1000; ! SUBTRACT 1000 

3049 3 (.ADDR + 2) = .C.ADDR + 2) + 1; ! INCR HI-ORDER 

3050 3 

3051 2 END; 

3052 2 

3053 2 IF .€. ADDR + 2) GEQU 1000 ' IF HI-ORDER OVERFLOW 

3054 2 THEN ! THEN 

3055 3 BEGIN 

3056 3 

3057 3 (.ADDR + 2) = .C.ADDR + 2) - 1000; ! SUBTRACT 1000 

3058 3 (.ADDR + 4) = .(.ADDR + 4) + 1; ! INCREMENT MBYTES 

3059 3 

3060 2 END; 

3062 1 END; ' ROUTINE OVF_CHK 

-SBTTL OVF.CHK GLOBAL ROUTINES 
000000 010146 OVF .CHK:; 
MOV R1i,-(SP) ; 

000002 016600 000004 MOV 4(SP),RO : ADOR,«* 
000006 012701 000002 MOV #2,R1 ; 
000012 060001 ADD RO,R1 
000014 021027 001750 1$: CMP (RO), #1750 ; 
000020 103404 BLO 2s 
000022 162710 001750 SUB #1750, (RO) 3 
000026 005211 INC (Ri) 3 
000030 000771 BR 1s 3 
000032 021127 001750 2s: CMP (R1),@1750 ; 
000036 103404 BLO 33 
000040 162711 001750 suB #1750,(R1) 3 
000044 005260 000004 INC 4(RO) ; 
000050 012601 3s: MOV (SP)+,R1 : 
000052 000207 RTS PC 
s Routine Size: 22 words, Routine Base: sCODE$ + 6110 


s Maximum steck depth per invocation: 2 words 









03 USER$1: (AZTEC. CZRCDOB ICZRCD2.SRC;8 




















SEQ 0170 
P 77 


czrcd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOBICZRCD2.SRC;8 (32) 
: 3063 1 GLOBAL ROUTINE XFR_CHK : NOVALUE = 
3 3064 1 
3 3065 1 te 
Fy 3066 1 ! THIS ROUTINE IS CALLED (A) DURING THE MULTI-DRIVE SUBTEST FROM MD_TALLY 
3 3067 1 : FOR ALL I/0 TRANSFER RETURN PACKETS WITH “SUCCESS” STATUS CODES, AND 
3 3068 1 : (B) DURING THE DM EXERCISER SUBTEST FROM DM_TALLY WHEN EXAMINING THE 
Fy 3069 1 : COMMUNICATION AREA (DM_COMM). ITS PURPOSE IS TO CALCULATE THE TOTAL 
: 3070 1 : NUMBER OF BYTES TRANSFERRED THUS FAR ON THE CURRENT UNIT, AND TO CHECK 
8 3071 1 ! THIS SUM AGAINST THE OPERATOR-SPECIFIED LIMIT. IF THE LIMIT HAS BEEN 
3 pod 1 : REACHED, THEN THE UNIT IS REMOVED FROM THE CURRENT PASS. ‘ 
8 it) 1 $ 
3 3074 1 H IMPLICIT INPUTS: 
3 3075 1 : T_ADDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
’ 3076 1 : LSLUN - CURRENT UNIT NUMBER 
8 3077 1 : CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
3 3078 1 : DMC_ADDR - ADDRESS OF CURRENT CONTROLLER'S OM_COMM AREA 
3 3079 1 : CuOFF - CST OFFSET FOR CURRENT UNIT 
: 3080 1 !- 
3 3081 1 
3 3082 2 BEGIN 
8 3083 2 
3 3084 2 LOCAL 
3 or ; SUM : WORD; ! TOTAL NUMBER OF BYTES TRANSFERRED TO/FROM A UNIT 
8 
: 3087 2 IF .SWP_XFER NEQU 0 ' IF A TRANSFER LIMIT WAS SPECIFIED 
8 3088 2 HEN ! THEN 
$ 3089 3 BEGIN 
; 3090 3 
$ 3091 3 SUM = .T_ADDR [MB_READ] + .T_ADDR [MB_WRIT]; ! TOTAL BYTES TRANSFERRED 
Fy 3092 3 IF .SUM GEQU .SWP_XFER ! IF TRANSFER LIMIT IS REACHED 
3 3093 3 THEN ! THEN 
s 3094 4 BEGIN 
$ 3095 4 
3 3096 4 CPT [.L$LUN] = NO; ! MARK UNIT INACTIVE 
$ 3097 4 CST_ADDR [U_CNT] = .CST_ADDR [U_CNI] - 1; § DECREMENT ACTIVE UNIT COUNT 
; 3098 4 DMC_ADOR [.CUOFF - OF_UN, ALLBIT) = -1; ! IF OM EXER, STOP FPT ON UNIT 
3 3099 5 IF MANUAL ! IF ATTENDED 
3 3100 4 THEN ! THEN 
5 3101 5 BEGIN 
$ 3102 5 
F 3103 5 PRINTF (CRLF); 
F 3104 5 PRINTF CETIME, .HOURS, .MINUTES, .SECONDS); ! ELAPSED TIME 
8 3105 z PRINTF (MSG_07, .L$LUN); ! "UNIT XX. - TRANSFER LIMIT REACHED” 
8 3106 
Fy 3107 4 END; 
Fy 3108 4 
3 3109 3 END; 
3 3110 $ 
$ sate 2 END; ' IF A TRANSFER LIMIT WAS SPECIFIED 
5 112 2 
s S115 1 END; ! ROUTINE XFR_CHK 
-SBTTL XFR.CHK GLOBAL ROUTINES 
900009 004137 000000G XFR. CHK: : 
JSR R1,$SAVE2 3 
0000C4 013702 000000G MOV SWP.XFER,R2 3 
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SEQ 0171 


czrcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 78 
vo2.0 GLOBAL ROUTINES 14-Jun-1985 09:32:03 USER$1:[AZTEC.CZRCDB ICZRCD2.SRC;8 (32) 
000010 091467 BEQ 1$ = 
000012 013701 000000G - MOV T. ADDR ,R1 3 3091 
000016 010100 MOV R1,R0 ; T.ADDR,« 
000020 016101 000020 MOV 20(R1),R1 + *,SUM 
000024 066001 000026 ADD 26(RO),R1 ; *,SUM 
000030 020102 CMP R1i,R2 ; SUM,* 3092 
000032 103456 BLO 1$ 
000034 013700 000000G MOV L$LUN,RO : 3096 
000040 105060 000000G CLRB CPTCRO) 
000044 013700 0000006 MOV CST. ADOR,RO F 3097 
000050 105360 000005 DECB 5(RO) 
000054 013700 000000G MOV CUOFF ,RO 3 3098 
000060 006300 ASL RO 
000062 063700 0000006 ADD DMC. ADOR RO 
000066 012760 177777 177772 MOV #-1,-6(RO) 
000074 104450 TRAP 50 ; 
000076 103034 BHIS 1$ 
000100 012746 000000G MOV @CRLF,-(SP) 3 
000104 012746 000001 MOV 41,-(SP) 
000110 010600 MOV SP ,RO ; SP,* 
000112 104417 TRAP 17 
000114 013716 000000G MOV SECONDS, (SP) 3 
000120 013746 000000G MOV MINUTES, -( SP) 
000124 013746 000000G MOV HOURS, -( SP) 
000130 012746 000000G MOV #E TIME, -(SP) 
000134 012746 000004 MOV #4,-(SP) 
000140 010600 MOV SP RO ; SP,* 
000142 104417 TRAP 17 
000144 013716 000000G MOV L$LUN, (SP) : 
000150 012746 000000G MOV #MSG.07, -( SP} 
000154 012746 000002 MOV #2,-CSP) 
000160 010600 MOV SP ,RO ; SP,* 
000162 104417 TRAP 17 
000164 062706 000020 ADD #20,SP : 
000170 000207 1$: RTS PC 5 
Routine Size: 61 words, Routine Base: sCODE$ + 6164 


: Maximum stack depth per invocation: 13 words 
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GLOBAL ROUTINE SEND (INDEX) = 


IF THE CURRENT RC2S5 IS ONLINE AND ITS CRING IS NOT FULL, THEN THIS 
ROUTINE “SENDS” A COMMAND TO THE RC25 BY LOADING THE ENVELOPE 
DESCRIPTOR OF AN MSCP ENVELOPE INTO THE COMMAND RING AND READING THE 
DEVICE'S IP REGISTER. A RECORD OF THE SENT COMMAND IS MADE IN THE 
CONTROLLER'S OWN OUTSTANDING COMMAND LIST COUTC_LIST), AND A COMMAND 
TIMER IS STARTED IN THE OUTSTANDING COMMAND TIMER COUTC_TIMR). IF THE 
CURRENT RC25 IN NOT ONLINE, THEN A FAILURE INDICATION IS RETURNED 10 
THE CALLER, AND NO ACTION IS TAKEN. 


INPUTS: 
INDEX - ag hy MSCP ENVELOPE CONTAINING THE COMMAND TO 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT 
OCL_X1, OCL_X2 - STARTING/ENDING INDECES OF CURRENT 
CONTROLLER'S OUTSTANDING COMMAND AREA 


BEGIN 
LOCAL 
SLOT_ADDR, 
TEMP : WORD; 
IF (C.DCT_ADDR [STAT] EQLU ONLINE) AND ! IF DEVICE IS ONLINE AND 
a €.DCT_ADDR [CRING_CNT] LSSU CRING_LEN)) ! ITS CRING IS NOT FULL 
HEN 
BEGIN 
MSCP_ENV [. INDEX, CRN_LO) = (CRN = .CRN + 1); ! ASSIGN CMD REF NUM 
SLOT_ADOR = .OCT_ADDR [CR_NEXT]; ! ADDR OF NEXT COMMAND SLOT 
-SLOT_ADDR = .MSCP_ENV [. INDEX, ENV_LO]); ' LOAD ENV DESC (LO) INTO COMMAND SLOT 
SLOT_ADDR = .SLOT_ADDR + 2; ' ADVANCE TO NEXT WORD 
-SLOT_ADDR = .MSCP_ENV [. INDEX, ENV_HI]; ' LOAD ENV DESC (HI) INTO COMMAND SLOT 
SLOT_ADDR = .SLOT_ADOR + 2; ! ADVANCE TO NEXT COMMAND SLOT 
ct SLOT_ADDR GTRA .DCT_ADDR [CR_END] ! — END OF CRING 
! TH 
SLOT_ADDR = .OCT_ADDR [CR_ BEG); ! CYCLE BACK TO BEGINNING 
DCT_ADDR [CR_NEXT] = .SLOT_ADDR ! RESTORE CR_NEXT POINTER IN DCT 
DCT_ADDR [CRING_CNT] = .DCT_ ADDR CCRING_CNT] + 1; ' INCR # OF COMMANDS IN CRING 


INCR COUNT FROM .OCL_X1 TO .OCL_x2 DO ! FOR EACH OUTC ENTRY 
BEGIN 
a nt {.COUNT) LSS 0 ! IF A SPARE SLOT IS FOUND 
HEN 
BEGIN 
OUTC_LIST [. aes = INDEX; ! LOAD MSCP_ENV INDEX 
IF .IIP_FLAG ! IF INIT SUBTEST IN PROGRESS 
THEN ! THEN 
' 


OUTC_TIMR [.COUNT] = TO_INIT SET INIT SUBTEST COMMAND TIMER 
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ELSE ! OTHERWISE 
BEGIN 


END; 
TEMP = 


— (SWP_FLAGS, SWF _DM) 
HEN 
OUTC_TIMR [.COUNT] = TO_DUP 
OUTC_TIMR [.COUNT] = TO_IO; 


IF DM EXERCISER IS BEING RUN 
THEN 


SET DUP COMMAND TIMER 
OTHERWISE 
SET I/0 TRANSFER COMMAND TIMER 


o- om cm tm te 


END; 
EXITLOOP; 
END; ! IF A SPARE SLOT IS FOUND 
! OUTC_LIST SEARCH LOOP 
-RC25_ADDR [RCIP, RC_ALL]; ! READ IP TO FORCE PORT TO POLL 


RETURN SUCCESS; 


END 


SE 
RETURN FAILURE; 


! IF DEVICE IS NOT ONLINE 


END; ! ROUTINE SEND 
-SBTTL SEND GLOBAL ROUTINES 
000000G SEND:: JSR R1,$SAVE2 ; 
TST -CSP) 
000000G MOV DCT. ADDR ,R1 ; 
TST (R1) 
BPL 7$ 
000010 CMPB (R1),#10 a 
BHIS 7$ 
000012 MOV 12(SP),-CSP) ; INDEX,* 
000104 MOV #104,-(SP) 
000000G JSR PC,BL$MUL 
000000G MOV CRN,R2 
INC R2 
000000G MOV R2,CRN 
000010G MOV R2,MSCP.ENV+10(RO) 
000020 MOV 20(R1),R2 ; *,SLOT.ADOR 
000000G MOV MSCP .ENV(RO),CR2)+ ; *,SLOT.ADOR 
000002G MOV MSCP .ENV+2(RO),(R2)+ ; *,SLOT.ADDR 
000012 CMP R2,12(R1) ; SLOT.ADDR,* 
BLOS 1$ 
000010 MOV 10(R1),R2 ; *,SLOT.ADDR 
000020 1$: MOV R2,20(R1) ; SLOT.ADDR,+* 
INCB (R1) ; 
000000G MOV OCL.X1,R1 ; *, COUNT 
DEC Ri 3 COUNT 
BR 5$ 
000000G 2s: Mh a attatae s *C(COUNT) 
000016 000000G MOVB 16(SP),OUTC.LISTCR1) 3 INDEX, *(COUNT) 
MOV R1,RO ; COUNT, # 
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000140 006300 ASL RO 

000142 052700 000000G ADD #OUTC. TIMR,RO 

000146 132737 000001 000000G BITB #1,IIP.FLAG 3 3168 
000154 001403 BEQ 3$ 

000156 012710 000170 MOV #170,CRO) 3 3170 
000162 000416 BR 6$ ; 3168 
000164 132737 000002 000000G 3$: BITB #2,SWP .FLAGS ; 3174 
000172 001403 BEQ 4$ 

000174 012710 000036 MOV #36, (RO) 3 3176 
000200 000407 BR 6$ ; 3174 
000202 012710 000454 4$: MOV #454 ,CRO) F 3178 
000206 000404 BR 6$ ; 3165 
000210 005201 5$: INC Ri 3; COUNT 3160 
000212 020137 000000G CMP R1,0CL.X2 ; COUNT,# 

000216 003741 BLE 2$ 

000220 017766 000000G 000004 6$: MOV @RC25. ADDR ,4(SP) ; *,RC.REG 3188 
000226 022626 CMP (SP)+,(SP)+ 3 3146 
000230 012700 000001 MOV #1,R0 3 3193 
000234 000401 BR 8$ 

000236 005000 7$: CLR RO 

000240 005726 8$: TST (SP)+ 3 3114 
000242 000207 RTS PC 

; Routine Size: 82 words, Routine Base: $CODE$ + 6356 


; Maximum stack depth per invocation: 7 words 
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CzRcd2 CZRCDBO RC25 DISK EXERCISER 
vo2.0 GLOBAL ROUTINES 


GLOBAL ROUTINE WAIT : NOVALUE = 


+ 


THIS ROUTINE IS CALLED DURING THE INITIALIZATION SUBTEST AFTER EACH 
MSCP MESSAGE IS SENT TO A DEVICE. ITS PURPOSE IS TO LOCATE THE LONE 
OUTSTANDING COMMAND AND TO MAINTAIN ITS TIMER UNITL EITHER “A) THE 
DEVICE RESPONDS TO THE COMMAND THROUGH AN RC25 INTERRUPT, RESULTING IN 
A RETURN PACKET BEING DEPOSITED INTO THE I/0 DONE QUEVE (IODQ), OR (B) 
THE COMMAND MESSAGE TIMER EXPIRES. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
OCL_X1, OCL_X2 - STARTING/ENDING INDECES OF CURRENT 
CONTROLLER'S OUTSTANDING COMMAND AREA 


BEGIN 
LOCAL 


CX : SIGNED WORD, 
MX 3 WORD 7 
RX : WORD ° 


M_ADDR, 
R_ADOR : 
CX = -1; 


INCR COUNT FROM .OCL_X1 TO .OCL_X2 DO 
BEGIN 


REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS); ! RETURN PACKET ADDRESS 





! OUTSTANDING COMMAND’S OUTC_LIST INDEX 
! INDEX OF MSCP COMMAND ENVELOPE 
! RETURN PACKET INDEX 
! MSCP ENV ADDRESS 


ASSUME COMMAND NOT FOUND 
SEARCH OUTC_LIST FOR THE 
OUTSTANDING COMMAND 


IF .QUTC_LIST [.COUNT] GEQ 0 ® 
THEN 
BEGIN 


CX = .COUNT; ! SAVE OUTC INDEX OF COMMAND 
EXITLOOP; DONE HERE 


END; 
END; 
T_FLAG = FALSE; ! CLEAR ONE SECOND TIMING FLAG 
DO ! REPEAT UNITL RC25 INTERRUPT 
BEGIN ! OR TIMEOUT 
IF .T_FLAG ! IF ONE SECOND HAS ELAPSED 
THEN THEN 
BEGIN 
IF .CX GEQ 0 
THEN 
BEGIN 
SETPRI (PRIO5); 
IF .QUTC_TIMR [.CX] GTRU 0 


THEN 
BEGIN 


IF THIS IS IT 
THEN 


IF OUTSTANDING COMMAND WAS FOUND 
THEN 


LOCK OUT RC25 INTERRUPTS 
IF TIMER STILL ACTIVE 
HEN 
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! IF MESSAGE HAS TIMED OUT 


! THEN 


GET A RETURN PACKET 

GET COMMAND ENV INDEX 
CALCULATE RETPKT ADDRESS 
CALCULATE ENV ADDR 

COPY COMMAND TO RETPKT 

SET PACKET SOURCE AS “DRIVER” 
COMMAND TIMEOUT 

CONTROLLER NUMBER 

“SEND” THE PACKET 

RETURN COMMAND ENV TO POOL 
INIT OUTC_LIST ENTRY 


! IF MESSAGE TIMER EXPIRED 


ROUTINE WAIT 


IF TIMER STILL ACTIVE 

RESTORE INIT SUBTEST PRIORITY 

IF OUTSTANDING COMMAND WAS FOUND 
CLEAR ONE SECOND TIMING FLAG 

IF ONE SECOND HAS ELAPSED 


UNTIL A PACKET IS “SENT” FROM HERE 
OR RC25 INTERRUPT PROCESSING 


; *,COUNT 
; *,COUNT 


; *C(COUNT) 
COUNT, CX 


COUNT 
COUNT, * 


; *, CX 


3; CX 


; CX,* 


CZRCD2 CZRCOBO RC25 DISK EXERCISER 

vo2.0 GLOBAL ROUTINES 

F 3253 6 OUTC_TIMR [.CX] = .QUTC_TIMR [.CX] - 1; ! DECREMENT TIMER 

$ 3254 6 IF .OQUTC_TIMR [.CX] EQLU 0 

3 3255 6 THEN 

3 3256 7 BEGIN 

8 3257 7 

3 3258 7 RX = GET_RETPKT (.CCTLR); 

8 oe ae MX = ,OUTC_LIST [.CX]; 

8 3260 7 R_ADDR = RETPKT + (.RX * RP_LEN * 2); 

F 3261 7 M_ADDR = MSCP_ENV + (.MX * ENV_LEN * 2); 

3 3262 7 COPY_BLK (.M_ADDR + 4, .R_ADDR, RP_LEN); 

3 3263 7 R_ADDR (CONID] = CID_DRIVER; 

3 3264 7 R_ADDR [MESTYP] = MT_TIMEOUT; 

: 3265 7 R_ADOR [CTLR] = .CCTLR; 

8 3266 7 IN_IODQ (.RX); 

3 3267 7 PUT_ENV (.MX); 

$ 3268 7 OUTC_LIST [.CX] = -1; 

3 3269 7 

3 3270 6 END; 

3 3271 6 

8 3272 5 END; ! 

3 3273 (5 

$ 3274 5 SETPRI CPRIOO); ! 

3 3275 5 

8 3276 4 END; ! 

3 3277 4 

F 3278 4 T_FLAG = FALSE; ! 

3 3279 4 

3 3280 3 END; ! 

F 3281 3 

F 3282 3 END H 

$ 3283 2 UNTIL .IODQ_IN NEQU .IODQ_OUT; ! 

PF 3284 2 

s 3285 1 END; ! 
-SBTTL WAIT GLOBAL ROUTINES 

000000 004137 000000G WAIT:: JSR R1,$SAVE5 

000004 012701 177777 MOV #-1,R1 

000010 013700 000000G MOV OCL.X1,R0 

000014 060100 ADD R1,RO 

000016 000405 BR 2$ 

000020 105760 000000G 1$: TSTB OUTC.LISTCRO) 

000024 002402 BLT 2$ 

000026 010001 MOV RO,R1L 

000030 000404 BR 3$ 

000032 005200 2s: INC RO 

000034 020037 000000G cmMP RO,OCL.X2 

000040 003767 BLE 1$ 

000042 105037 000000G 3$; CLRB T.FLAG 

000046 132737 000001 000000G 4$; BITB #1,T.FLAG 

000054 001510 BEQ 7$ 

000056 005701 TST R1 

000060 002504 BLT 6$ 

000062 012700 000240 MOV #240 ,RO 

000066 104441 TRAP 41 

000070 010100 MOV R1,RO 

000072 006300 ASL RO 
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000074 062700 000000G ADD #O0UTC.TIMR,RO 

000100 005710 TST CRO) 

000102 001471 BEQ 5$ 

000104 005310 DEC CRO) $ 

000106 001067 BNE 5$ ; 

000110 013746 000000G MOV CCTLR, -(SP) F 

000114 004737 005026' JSR PC ,GET.RETPKT 

000120 010004 MOV RO,R4 4s *,RX 
000122 116103 000000G MOVB OUTC .LISTCR1),R3 : *(CX),MX 
000126 010416 MOV R4,(SP) » RX,* 
000130 012746 000060 MOV #60, -CSP) 

000134 004737 000000G JSR PC ,BL$MUL 

000140 062700 000000G ADD #RETPKT,RO 

000144 010002 MOV RO,R2 ; *,R.ADDR 
000146 010316 MOV R3,(SP) 3; MX,* 
000150 012746 000104 MOV #104,-(SP) 

000154 004737 000000G JSR PC ,BL$MUL 

000160 062700 000000G ADD #MSCP.ENV,RO 

000164 010005 MOV RO,RS ; *,M.ADDR 
000166 010516 MOV R5,(SP) ; M.ADDR,* 
000170 062716 000004 ADD #4 ,(SP) 

000174 010246 MOV R2,-(SP) ; R.ADOR,* 
000176 012746 000030 MOV #30,-CSP) 

000202 0C4737 004310' JSR PC ,COPY.BLK 

000206 012700 000002 MOV #2,R0 $ 

000212 060200 ADD R2,RO ; R.ADDOR,* 
000214 112760 000003 000001 MOVB #3,10RO) 

000222 013746 000000G MOV CCTLR, -( SP) 3 

000226 042716 177760 BIC #177760, (SP) 

000232 112710 000100 MOVB #100,(RO) 

000236 152610 BISB (SP)+,CRO) 

000240 010416 MOV R4,(SP) ; RX,* 
000242 004737 005424' JSR PC,IN.I0D0Q 

000246 010316 MOV R3,(SP) ; MX,* 
000250 004737 004752’ JSR PC ,PUT.ENV 

000254 112761 000377 000000G MOVB #377, OUTC.LISTCR1) ; *,*(CX) 
000262 062706 000012 ADD #12,SP ; 

000266 005000 S$: CLR RO ; 

000270 104441 TRAP 41 

000272 105037 000000G 6$: CLRB T.FLAG ; 

000276 023737 000000G 000000G 7$: CMP I0DQ.IN, I0DQ.0UT 3 

000304 001660 BEQ 4$ 

000306 000207 RTS PC ; 

; Routine Size: 100 words, Routine Base: $CODE$ + 6622 


; Maximum stack depth per invocation: 12 words 
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3299 
3300 
3301 
3302 
3303 


000000 
000004 
000010 
000014 
000016 
000020 
000024 


3; Routin 


3304 
3305 
3306 
3307 
3308 
3309 
3310 
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013746 
013746 
013746 
012746 
012746 
010600 
104414 
062706 
000207 


e Size: 
; Maximum stack 
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010600 
104415 
062706 
000207 


e Size: 
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ROUTINE EMS_ET : NOVALUE = 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 


es 
: THIS ROUTINE PRINTS THE ELAPSED TIME THAT PRECEDES ALL BASIC ERROR 
? MESSAGES. 


PRINTB CETIME, .HOURS, .MINUTES, .SECONDS); 


-SBTTL EMS.ET ERROR MESSAGE SUBROUTINES 


000000G EMS.ET: MOV SECONDS, -( SP) ; 3295 
000000G MOV MINUTES, -( SP) 
000000G MOV HOURS, -C SP) 
000000G MOV #E TIME ,-CSP) 
000004 MOV #4,-CSP) 
MOV SP,RO ; SP,* 
TRAP 14 
000012 ADD #12,SP 
RTS PC PF 3288 
15 words, Routine Base: ‘$CODE$ + 7132 


depth per invocation: 7 words 


ROUTINE EMS_SA : NOVALUE = 


' THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM “SA_REG” WHICH CONTAINS 
! THE CONTENTS OF THE SA REGISTER. 
- 
PRINTX CEX_SA, .SA_REG); ; SA: XXXXXx(0)” 
-SBTTL EMS.SA ERROR MESSAGE SUBROUTINES 
000000G EMS.SA: MOV SA.REG,-(SP) 3 3303 
000000G MOV #EX.SA,-(SP) 
000002 MOV #2,-CSP) 
MOV SP ,RO 3; SP, 
TRAP 15 
000006 ADD #6 ,SP 
RTS PC F 3296 
11 words, Routine Base: $CODE$ + 7170 


depth per invocation: 5 words 
ROUTINE EMS_CRN : NOVALUE = 


' THIS ROUTINE PRINTS (EXTENDED) THE COMMAND REFERENCE NUMBER OF THE 
: CURRENT RETURN PACKET. ONLY THE LOW-ORDER WORD IS SIGNIFICANT. 
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: Ssil i PRINTX CEX_CRN, .RP_ADDR [CRF_LO)); : CMD REF NUM: XXXXXxX(0)” 
-SBTTL EMS.CRN ERROR MESSAGE SUBROUTINES 

000000 013700 000000G EMS.CRN:MOV RP .ADDR,RO $ 

000004 016046 000004 MOV 4(RO), -CSP) 

000010 012746 000000G MOV #E€X.CRN, -(SP) 

009014 012746 000002 MOY #2,-CSP) 

000020 010600 MOV SP ,RO : SP,« 

000022 104415 TRAP 15 

000024 062706 000006 ADD #6 ,SP 

000030 000207 RTS PC 3 

; Routine Size: 13 words, Routine Base: $CODE$ + 7216 


; Maximum stack depth per invocation: 5 words 


3 S3i2 i ROUTINE EMS_STC : NOVALUE = 

$ 3313 i 

; 3314 1 !+ 

3 S315 i ' THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM “ST_CODE” (STATUS CODE ) 

3 3316 1 ! IF IT IS NON-ZERO. 

3 3317 1 - 

3 3318 1 

: 3319 1 IF .ST_CODE NEQU 0 

8 3320 1 THEN 

$ 3321 1 PRINTX CEX_SC, .ST_CODE); - STATUS CODE: xx(0)” 
-SBTTL EMS.STC ERROR MESSAGE SUBROUTINES 

000000 013700 000000G EMS.STC:MOV ST.CODE,RO : 

000004 001411 BEQ 1$ 

000006 010046 MOV RO, -CSP) 3 

000010 012746 000000G MOV #EX.SC,-CSP) 

000014 012746 000002 MOV #2,-(SP) 

000020 010600 MOV SP ,RO ; SP,« 

000022 104415 TRAP 15 

000024 062706 000006 ADD #6,SP 

000030 000207 1$: RTS PC ; 

; Routine Size: 13 words, Routine Base: ‘$sCODE$ + 7250 


; Maximum stack depth per invocation: 5 words 


3 3322 1 ROUTINE EMS_SBC : NOVALUE = 

3 3323 1 

3 3324 1 te 

3 3325 1 ! THIS ROUTINE PRINTS (EXTENDED) THE GLOBAL DATUM “SB_CODE” (SUB-CODE) IF 
3 3326 1 H EITHER THE STATUS CODE (ST_CODE) OR THE SUB-CODE IS NON-ZERO. (A 

F 3327 1 : NON-ZERO SUB-CODE ALWAYS HAS SIGNIFICANCE, WHEREAS A ZERO SUB-CODE ONLY 
8 3328 1 ! HAS MEANING WITH A NON-ZERO STATUS CODE). 

Fy 3329 1 !- 

3 3330 1 

3 S331 i IF (.ST_CODE OR .SB_CODE) NEQU 0 

3 3332 1 THEN 

3 3333 1 PRINTX (EX_SB, .SB_CODE); : = SUB-CODE: XXxx(0)” 
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; Routine Size: 
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-SBTTL EMS.SBC ERROR MESSAGE SUBROUTINES 
000000G EMS.SBC:MOV ST.CODE,RO 3 3331 
000000G BIS SB .CODE,RO 

BEQ i$ 
000000G MOV SB .CODE, -( SP) 3 3333 
000000G MOV #€X.SB,-(SP) 
000002 MOV #2,-C(SP) 

MOV SP RO 1H SP ,« 

TRAP 15 
000006 ADD 96,5” 

1$: RTS PC 3 3322 
16 words, Routine Base: ‘sCODE$ + 7302 


depth per invocation: 5 words 


ROUTINE EMS_CMD : NOVALUE = 


- 


THIS ROUTINE PRINTS (EXTENDED) THE OPCODE AND COMMAND MODIFIER (IF 
PRESENT) OF THE CURRENT RETURN PACKE7. THESE FIELDS ARE “TRANSLATED” 
INTO ENGLISH TEXT RATHER THAN PRINTED AS RAW NUMBERS. 


IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 


BEGIN 


LOCAL 
COMMAND : WORD; 


PRINTX CEX_CMD); 
COMMAND = .RP _ ADDR CENDCOD) AND OP_MSK; 
SELECTONEU .COMMAND OF 


COMMAND OPCODE 


” COMMAND: “ 
GET OPCODE ALONE 


SET 
(OP_ESP] : PRINTX (EX_ESP); ! “EXECUTE SUPPLIED PROGRAM” 
[OP_SCC] : IF .IIP_FLAG ! IF INIT SUBTEST IN PROGRESS 
THEN ' THEN (THESE 2 OPCODES ARE THE SAME) 
PRINTX CEX_SCC) § "SET CTLR CHAR” 
LSE ! OTHERWISE 
PRINTX CEX_SND); ! “SEND DATA” 
{OP_ONL) : PRINTX (CEX_ONL); ! “ONLINE” 
[OP_RD) : PRINTX (CEX_RD); ! “READ” 
[OP_WRT] : PRINTX CEX_WRT); ! “WRITE” 
(OTHERWISE) : PRINTX (EX_03, .RP _ADDR (ENDCOD)); © “xxx(0)” 
TES; 
IF (C(C.COMMAND EQLU OP_RD) OR (.COMMAND EQLU OP_ WRT)) AND 
(BIT_TST (RP_ADDR [CMDMOD], MD_CMP))) ! eat MODIFIER IS PRESENT 
THE ! THEN 
PRINTX CEX_CMP) ! “-COMPARE<CR><LF>” 
SE ! OTHERWISE 
PRINTX (CRLF); § <CR><LF> 
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END; ! ROUTINE EMS_CMD 

-SBTTL EMS.CMD ERROR MESSAGE SUBROUTINES 
000000G EMS.CMD: JSR R1, $SAVE2 F 3334 
000000G MOV #€X.CMD, -(SP) H 3350 
000001 MOV #1,-CSP) 

MOV SP ,RO ; SP, 

TRAP 15 
000000G MOV RP .ADDR,R1 3 3351 
000014 MOVB 14(R1),R2 3; #, COMMAND 
177600 BIC #177600,R2 3; *, COMMAND 
000002 oer . #2 3; COMMAND, « 3355 
000000G MOV #EX. ESP, (SP) 
000001 MOV #1,-C(SP) 

MOV SP »RO 3 SP * 

TRAP 15 

BR 6$ 
000004 1$: er 4 04 ; COMMAND, « 3356 
000001 000000G thy »IIP.FLAG 
000000G MOV #EX.SCC, CSP) H 3358 
000001 MOV #1,-(SP) 

MOV SP ,RO ; SP,* 

TRAP 15 

BR 6$ 3 3356 
000000G 2s: MOV #EX. SND, (SP) ; 3360 
000001 MOV #1,-(SP) 

MOV SP eRO ; SP * 

TRAP 15 

BR 6$ 3 3356 
000011 3$: a i #11 ; COMMAND, «+ 3361 
000000G MOV #EX.ONL, (SP) 
000001 MOV #1,-(SP) 

MOV SP ,RO ; SP,« 

TRAP 15 

BR 6$ 
000041 4$: CMP R2,041 3; COMMAND, « 

BNE 5$ 
000000G MOV #EX.RD, CSP) 
000001 MOV #1,-(SP) 

MOV SP ,RO ; SP, 

TRAP 15 

BR 6$ 
000042 5$: a " ,#42 ; COMMAND, «+ 
000000G MOV EX. WRT, (SP) 
000001 . MOV #1,-(SP) 

MOV SP RO ; SP,« 

TRAP 15 

6$: TST (SP)-+ 
BR 8$ ; 


7$: CLR (SP) ; 











116116 
012746 


s Routine Size: 
: Maximum stack 


CZRCOBO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


000041 8$: 


000000G 9$: 
040000 000012 


000000G 
000001 


000000G 10$: 
000001 


000006 11$: 


114 words, Routine Base: 
depth per invocation: 


9 words 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


14(R1),CSP) 

@€X.03,-CSP) 

#2 ,-CSP) 

SP ,RO 

15 

(SP)+,(SP)+ 
41 


RP .ADDR,RO 
#40000, 12(RO) 
10$ 


EX. CMP, (SP) 
#1,-C(SP) 
._— 


11$ 

@CRLF, (SP) 
#1,-(SP) 
SP ,RO 


15 
#6 ,SP 
PC 


$CODE$ + 7342 







VAX-11 Bliss-16 V4.0-579 


3 3376 1 ROUTINE EMS_LBN : NOVALUE = 
s srr & 
F 3378 1 te oa 
$ 3379 1 ! THIS ROUTINE PRINTS (EXTENDED) ONE OF TWO BLOCK NUMBERS APPEARING IN 
s 3380 1 ! THE CURRENT RETURN PACKET. NORMALLY, THE LBN FIELD IS PRINTED; THIS 
oe 2 ! FIELD WAS COPIED INTO THE RETURN PACKET FROM THE ASSOCIATED COMMAND 
3 3382 1 ! ENVELOPE. HOWEVER, IF THE “FLAGS” FIELD OF THE CURRENT RETURN PACKET 
3 3383 1 ! INDICATES “BAD BLOCK REPORTZDO”, THEN THE “FIRST BAD BLOCK” FIELD IS 
F 3384 1 ! PRINTED. 
: 3385 1 H 
3 3386 i ! IMPLICIT INPUTS: 
3 3387 1 H RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
3 3368 1 !- 
3 3389 1 
3 3390 2 BEGIN 
3 3391 2 
3 3392 3 IF BIT_TST (RP_ADDR [FLAGS], EF_B8BR) ! IF BAD BLOCK REPORTED 
; 3393 2 THEN ! THEN 
3 3394 3 PRINTX (CEX_8B, .RP_ADDR [BBLK_LO)) , * BAD BLOCK REPORTED: XXXxXxX.” 
3 3395 2 E ! OTHERWISE 
3 he : PRINTX (CEX_LBN, .RP_ADDR [LBN_LO)); :.¢ LBN: XXXXX. ” 
3 
3 3398 1 END; ! ROUTINE EMS_LBN 

-SBTTL EMS.LBN ERROR MESSAGE SUBROUTINES 
000000 013700 000000G EMS.LBN: MOV RP .ADDR,RO : 
000004 105760 000015 TSTB 15(RO) 





SEQ 0182 
Page 89 
USER $1: [AZTEC.CZRCDB JCZRCD2.SRC;8 (35) 





& 


















SEQ 0183 
P 


czRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 90 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (35) 
000010 190011 BPL 1$ 

000012 016046 000040 MOV 40(RO),-(SP) $ 3394 
000016 012746 000000G MOV %EX.BB,-(SP) 

000022 012746 000002 MOV #2,-(SP) 

000026 010600 MOV SP ,RO : SP,« 

000030 104415 TRAP i5 

000032 000410 BR 2s 3 3392 
000034 016046 900050 1$: MOV 50(RO),-C(SP) 3 3396 
000040 912746 000060G MOV #EX.LBN, -C(SP) 

00° 44 912746 000002 MOV 02,-(SP) 

mV056 020600 MOV SP ,RO ; SP,«# 

were «104415 TRAP 15 

000054 062706 000006 23: ADD #6 ,SP 3 3390 
000060 000207 RTS PC 3 3376 
3; Routine Size: 25 words, Routine Base: $CODE$ + 7706 


; Maximum stack depth per invocation: 5 words 


3 3399 1 ROUTINE EMS_BC : NOVALUE = 
3 3400 1 
3 3401 1 ts 
3 3402 1 ! THIS ROUTINE PRINTS (EXTENDED) BOTH BYTE COUNT FIELDS OF THE CURRENT 
3 3403 1 H RETURN PACKET: THE BYTE COUNT FROM THE COMMAND ENVELOPE AND THE 
3 sae 1 H ACTUAL NUMBER OF BYTES TRANSFERRED (FROM THE RESPONSE ENVELOPE). 
3 1 ! 
8 3406 1 : IMPLICIT INPUTS: 
3 3407 1 H RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
: 3408 1 !- 
s 3409 1 
8 3410 2 BEGIN 
3 3411 2 
Hy 3412 2 PRINTX CEX_CBC, .RP_ADDR [CBCNT_LO)); ' BYTE COUNT IN COMMAND: XXXXX. ” 
3 tk ; PRINTX CEX_BC, .RP_ADDR [BCNT_LO)); ; ACTUAL # OF BYTES TRANSFERRED: XXXXX.” 
s 1 
3 3415 1 END; ' ROUTINE EMS_BC 
-SBTTL EMS.6C ERROR MESSAGE SUBROUTINES 
000000 013700 000000G EMS.BC: MOV RP .ADDR,RO ; 
000004 016046 000044 MOV 44(RO),-CSP) 
000010 012746 000000G MOV #€X.CBC, -CSP) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP ,RO ; SP,* 
000022 104415 TRAP 15 
000024 013700 000000G MOV RP .ADDR,RO 3 
0600030 016016 000020 MOV 20(RO), CSP) 
000034 012746 000000G MOV #EX.BC,-(SP) 
009040 012746 000002 MOV #2,-(SP) 
000044 0109600 MOV SP RO ; SP,* 
000046 104415 TRAP i5 
900050 062706 000012 ADD #12,SP ; 
000054 009207 RTS PC H 
- g Routine Size: 23 words, Routine Base: $CODE$ + 7770 


; Maximum stack depth per invocation: 7 words 




















SEQ 0184 


CZRCD2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1:([AZTEC.CZRCDB ICZRCD2.SRC;8 
3 3416 1 ROUTINE EMS_BD : NOVALUE = 
3 3417 1 
3 3418 1 + 
8 3419 1 ! THIS ROUTINE PRINTS (EXTENDED) THE TWO-WORD I/0 BUFFER DESCRIPTOR 
’ coor 1 : APPEARING IN THE CURRENT RETURN PACKET. 
8 en & : 
8 3422 1 ! IMPLICIT INPUTS: 
3 3423 1 : RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
8 3424 1 - 
8 3425 1 
3 3426 1 PRINTX CEX_8D, .RP_ADDR [BUFF_0), .RP_ADDOR (BUFF_1])); . I/0 BUFFER DESCRIPTOR: XXXXXxX(0) XXXXXxX(0)” 
-SBTTL EMS.BD ERROR MESSAGE SUBROUTINES 
000000 013700 000000G EMS.BD: MOV RP .ADDR,RO 8 
000004 016046 000026 MOV 26(RO),-CSP) 
000010 016046 000024 MOV 24(RO),-C(SP) 
000014 012746 090000G MOV #EX.BD,-(CSP) 
000020 012746 000003 MOV #3,-(SP) 
000024 010600 MOV SP ,RO : SP,* 
000026 104415 TRAP 15 
000030 062706 000010 ADD #10,SP 
000034 000207 RTS PC : 
; Routine Size: 15 words, Routine Base: ‘$CODE$ + 10046 
; Maximum stack depth per invocation: 6 words 
3 3427 1 ROUTINE EMS_RP : NOVALUE = 
Fy 3428 1 
; 3429 1 's 
Hy 3430 1 ! THIS ROUTINE IS RESPONSIBLE FOR PRINTING (EXTENDED) THE RELEVANT FIELDS 
3 3431 1 : OF THE CURRENT RETURN PACKET. 
3 3432 1 !- 
3 3433 1 
8 3434 2 BEGIN 
Fy 3435 2 
3 3436 2 EMS_CRN (); ' COMMAND REFERENCE NUMBER 
3 3437 2 EMS_SBC (); § SUB-CODE 
s 3438 2 EMS_CMD (); ! COMMAND CAND MODIFIER) 
3 3439 2 EMS_LBN (); ! LBN OR BAD BLOCK NUMBER 
3 3440 2 EMS_BC (); ' BYTE COUNTS 
: i 2 EMS_BD (); ! I/0 BUFFER DESCRIPTOR 
; 42 2 
$ 3443 1 END; ! ROUTINE EMS_RP 
-SBTTL EMS.RP ERROR MESSAGE SUBROUTINES 
000000 004737 007216’ EMS.RP: JSR PC,EMS.CRN 3 
000004 004737 007302’ JSR PC,EMS.SBC 3 
000010 004737 007342: JSR PC,EMS.CMD 3 
000014 004737 007706’ JSR PC,EMS.LBN 3 
000020 004737 007770' JSR PC,EMS.BC 3 
000024 004737 010046’ JSR PC,EMS.BD 3 
000030 000207 RTS PC 3 
; Routine Size: 13 words, Routine Base: $CODE$ + 10104 
; Maximum stack depth per invocation: 1 word 




















SEQ 0185 
CZRCD2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 93 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER $1: (AZTEC. CZRCOB JCZRCD2.SRC;8 (36) 


>; 3444 1 BGNMSG (EMS_01); 


-SBTTL EMS.01 ERROR MESSAGE SUBROUTINES 


000000 004737 000000V EMS.01::JSR PC ,MSEMS.01 3 3444 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: $CODE$ + 10136 
; Maximum stack depth per invocation: 2 words 
3 3445 2 
3 3446 2 EMS_ET (); ! ELAPSED TIME 
3 tee : PRINTB (EBS_01, MAX_UNITS); ! “MORE THAN XX. UNITS SPECIFIED” 
: 4 
; 3449 1 ENDMSG; 
-SBTTL M$EMS.01 ERROR MESSAGE SUBROUTINES 
000000 004737 007132' MSEMS.O1: 
JSR PC,EMS.ET 3 3446 
000004 012746 000020 MOV #20,-C(SP) $ 3447 
000010 012746 000000G MOV #EBS .01,-(SP) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP,RO ; SP,* 
000022 104414 TRAP 14 
000024 062706 000006 ADD #6 ,SP : 3444 
000030 000207 RTS PC 
; Routine Size: 13 words, Routine Base: ‘$CODE$ + 10146 
; Maximum stack depth per invocation: 5 words 
s 3450 1 BGNMSG (EMS_10); 
-SBTTL EMS.10 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.10::JSR PC ,M$EMS.10 3 3450 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: ‘$sCODE$ + 10200 


; Maximum stack depth per invocation: 2 words 


$ 3451 2 
8 3452 2 EMS_ET (); ! ELAPSED TIME 
$ ti 2 PRINTB (EBD_10, .RC25_ADDR + .OF_RC); ! “NO RESPONSE AT ADDRESS XXXXxXx(0)” 
$ 4 2 
s 3455 1 ENDOMSG; 
-SBTTL M$EMS.10 ERROR MESSAGE SUBROUTINES 
000000 004737 007132’ MSEMS.10: 
JSR PC,EMS.ET : 3452 
000004 013746 000000G MOV RC25.ADOR, -( SP) F 3453 











czRrcd2 
vo2.0 


000010 
000014 
000020 
000024 
000026 
000030 
000034 


063716 
012746 
012746 
010600 
104414 
062706 
000207 


3; Routine Size: 
; Maximum stack 


000000 004737 
000004 104423 
000006 000207 


3; Routine Size: 
; Maximum stack 


3457 
3458 
3459 
3460 
3461 


Mr 


ee ee es es oF 


000000 


000004 
000010 
000014 
000020 
000022 
000024 
000030 


004737 


013746 
012746 
012746 
010600 
104414 
062706 
000207 


; Routine Size: 
; Maximum stack 


3 3462 1 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
; Maximum stack 





CZRCDBO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


000000G ADD 
000000G MOV 
000002 MOV 

MOV 

TRAP 
000006 ADD 

RTS 

15 words, Routine Base: $CODE$ + 
depth per invocation: 5 words 
BGNMSG (EMS_12); 

.SBTTL 
000000V EMS.12::JSR 

TRAP 

RTS 

4 words, Routine Base: $CODE$ + 
depth per invocation: 2 words 

EMS_ET (); 

PRINTB CEBD_12, .RC25_ADDR); 

ENDMSG; 

.SBTTL 
007132’ MSEMS.12: 

JSR 
000000G MOV 
000000G MOV 
000002 MOV 

MOV 

TRAP 
000006 ADD 

RTS 

13 words, Routine Base: $CODE$ + 


depth per invocation: 


BGNMSG (EMS_13); 


5 words 


-SBTTL 
EMS.13::JSR 


000000V 
TRAP 
RTS 

4 words, Routine Base: $CODE$ + 


depth per invocation: 


2 words 







SEQ 0186 


14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 94 
14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCDB ICZRCD2.SRC;8 (36) 
OF .RC, (SP) 
#€BD.10, -(SP) 
#2,-(SP) 
SP ,RO ; SP,« 
14 
#6 ,SP ; 3450 
PC 
10210 
EMS.12 ERROR MESSAGE SUBROUTINES 
PC,MSEMS.12 ; 3456 
23 
PC 
10246 


! ELAPSED TIME 
! “INCORRECT BR LEVEL GIVEN FOR DEVICE XXXXxxx(0)” 


MSEMS.12 ERROR MESSAGE SUBROUTINES 


PC,EMS.ET ; 
RC25 .ADDR, -C SP) ; 
#EBD.12,-CSP) 
#2, -(SP) 

SP ,RO ; SP,* 
14 

#6 ,SP ; 

PC 


10256 


EMS.13 ERROR MESSAGE SUBROUTINES 
PC ,MSEMS.13 ; 
23 
PC 


10310 


CZRCD2 
vo2.0 


oe os oe es oe os 
oO 
ui 
PM for 


000000 004737 


000004 013746 
000010 013746 
000014 012746 
000020 012746 
000024 010600 
000026 104414 
000030 004737 
000034 062706 
000040 000207 


; Routine Size: 
; Maximum stack 


s 3469 1 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
; Maximum stack 


3 3470 2 
s 3471 2 
; 3472 2 
8 3473 2 
Fy 3474 2 
$ 3475 1 


000000 004737 


000004 013746 
000010 012746 
000014 012746 
000020 010600 
000022 104414 
000024 004737 
000030 062706 
000034 000207 











CZRCDBO RC25 DISK EXERCISER 
ERROR MESSAGE SUBROUTINES 


EMS_ET (); 
PRINTB (CEBD_13, .STEP, .RC25_ADDR); 
EMS_SA (); 


ENDMSG; 

.SBTTL 
007132' MSEMS.13: 

JSR 
000000G MOV 
000000G MOV 
000000G MOV 
000003 MOV 

MOV 

TRAP 
007170' JSR 
000010 ADD 

RTS 

17 words, Routine Base: $sCODE$ + 
depth per invocation: 6 words 
BGNMSG (EMS_i4); 

-SBTTL 
000000V EMS.14::JSR 

TRAP 

RTS 

4 words, Routine Base: $CODE$ + 
depth per invocation: 2 words 

EMS_ET (); 

PRINTB (EBD_14, .IRC25_ADDR); 

EMS_SA (); 

ENOMSG; 

.-SBTTL 
007132’ MSEMS.14: 

JSR 
000000G MOV 
000000G MOV 
000002 MOV 

MOV 

TRAP 
007170! JSR 
000006 ADD 

RTS 


14-Jun-1985 09:36:36 
14-Jun-1985 09:32:03 


! ELAPSED TIME 
! “STEP X READ ERROR ON DEVICE XXXXxx(0)” 
! PRINTX SA CONTENTS 


MSEMS.13 ERROR MESSAGE SUBROUTINES 


PC,EMS.ET 
RC25.ADDR, -C SP) 
STEP, -(SP) 
#E€BD.13,-CSP) 
43, -(SP) 

SP ,RO 

14 


PC,EMS.SA 
#10, 


PC 
10320 


EMS.14 ERROR MESSAGE SUBROUTINES 


PC ,MSEMS.14 
23 
PC 


10362 


! ELAPSED TIME 
! “ERROR CODE RECEIVED IN SA REGISTER OF DEVICE XXxXxx(0)” 
! PRINTX SA REGISTER CONTENTS 


MSEMS.14 ERROR MESSAGE SUBROUTINES 


PC,.EMS.ET 
IRC25.ADOR, -(SP) 
#€BD.14,-(SP) 
#2,-CSP) 

SP ,RO 

14 
PC,EMS.SA 
#6, SP 

PC 


VAX-11 Bliss-16 V4.0-579 Page 95 
USER$1:{AZTEC.CZRCOBICZRCD2.SRC;8 (36) 










SEQ 0187 


3 3464 
3 3465 
3 SP,« 

3 3466 
; 3462 


3 3469 


: SP ,* 








SEQ 0188 
P 


czrcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age %6 
vo2.0 ERROR MESSAGE SUBRGUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCOBICZRCD2.SRC;8 (36) 
: Routine Size: 15 words, Routine Base: $CODE$ + 10372 


; Maximum stack depth per invocation: 5 words 


; 3476 1 BGNMSG (EMS_15); 


-SBTTL EMS.15 ERROR MESSAGE SUBROUTINES 


000000 004737 000000V EMS.15::JSR PC ,M$EMS.15 3 3476 
000004 104423 TRAP 23 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: $CODE$ + 10430 


; Maximum stack depth per invocation: 2 words 


8 3477 2 
3 3478 2 EMS_ET (); ! ELAPSED TIME 
’ 3479 2 PRINTB CEBD_15, .RC25_ADDR); ! “FAILED TO RECEIVE END MESSAGE FROM DEVICE Xxxxxx(0)” 
3 3480 2 EM3_CMD (); ! PRINTX COMMAND 
3 3481 2 
s 3482 1 ENDMSG:; 
-SBTTL MS$EMS.15 ERROR MESSAGE SUBROUTINES 
000000 004737 007132’ MSEMS.15: 
JSR PC,EMS.ET 3 3478 
000004 013746 000000G MOV RC25. ADDR, -( SP) 3 3479 
000010 012746 000000G MOV #EBD.15,-CSP) 
000014 012746 000002 MOV #2,-CSP) 
000020 010600 MOV SP ,RO ; SP, 
000022 104414 TRAP 14 
000024 004737 007342’ JSR PC,EMS.CMD 3 3480 
000030 062706 000006 ADD #6,SP 3 3476 
000034 000207 RTS PC 
; Routine Size: 15 words, Routine Base: ‘$CODE$ + 10440 
; Maximum stack depth per invocation: 5 words 
3 3483 1 BGNMSG (EMS_16); 
-SBTTL &MS.16 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.16::JSR PC .MSEMS.16 ; 3483 
000004 104423 TRAP 23 
000006 000207 RTS PC 
; Routine Size: 4 words, Routine Base: $CODE$ + 10476 


; Maximum stack depth per invocation: 2 words 


+; 3484 2 

+; 3485 2 EMS_ET (); ' ELAPSED TIME 

+; 3486 2 PRINTB (EBD_16, .CPLAT); $ “ERROR IN RESPONSE TO ONLINE COMMAND FOR PLATTER XXX.” 
; 3487 2 EMS_STC (); ! PRINTX STATUS CODE IF NOT ZERO 








CZRCO2 
vo2.0 


3 3488 2 
: 3489 2 
3 3490 1 


000000 004737 


000004 013746 
000010 012746 
000014 012746 
000020 010600 
000022 104414 
000024 004737 
000030 004737 
000034 062706 
000040 000207 


; Routine Size: 
; Maximum stack 


; 3491 1 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
; Maximum stack 


3492 
3493 
3494 
3495 
3496 


TM MP fr 


000000 004737 


000004 013746 
000010 012746 
000014 012746 
000020 010600 
000022 104414 
000024 062706 
000030 000207 


; Routine Size: 
; Maximum stack 


; 3497 1 
















SEQ 0189 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36  VAX-11 Bliss-16 V4.0-579 Page 97 
ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03  USER$1:( AZTEC. CZRCDBJCZRCD2.SRC;8 (36) 
EMS_SBC (); ! PRINTX SUB-CODE . 
ENOMSG; 

.SBTTL M$EMS.16 ERROR MESSAGE SUBROUTINES 
007132! MSEMS. 16: 

JSR PC,EMS.ET : 3485 
0000006 MOV CPLAT, -(SP) ; 3486 
0000006 MOV EBD .16, -(SP) 
000002 MOV #2,-(SP) 

MOV SP RO ; SP,* 

TRAP 14 
007250! JSR PC,EMS.STC : 3487 
007302! JSR PC.EMS .SBC ; 3488 
000006 ADD #6 ,SP ; 3483 

RTS PC 
17 words, Routine Base: ‘$CODE$ + 10506 


depth per invocation: 5 words 


BGNMSG (EMS_17); 


SBTTL EMS.17 ZRROR MESSAGE SUBROUTINES 


000000V EMS.17::JSR PC .MSEMS .17 3 3491 
TRAP 23 
RTS PC 

4 words, Routine Base: ‘$CODE$ + 10550 


depth per invocation: 2 words 


EMS_ET (); ! ELAPSED TIME 
PRINTB (CEBD_17, .CPLAT); ! “PLATTER XXX. IS SW WRITE-ENABLED BUT HW WRITE-PROTECTED” 
ENDMSG; 
-SBTTL M$EMS.17 ERROR MESSAGE SUBROUTINES 
007132' MS$EMS.17: 
JSR PC,EMS.ET ; 
000000G MOV CPLAT,-C(SP) F 
000000G MOV #EBD.17,-CSP) 
000002 MOV #2,-(SP) 
MOV SP ,RO ; SP,* 
TRAP 14 
000006 ADD #6 ,SP 3 
RTS PC 
13 words, Routine Base: ‘$CODE$ + 10560 


depth per invocation: 5 words 


BGNMSG (EMS_18); 


CZRCD2 
vo2.0 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
; Maximum stack 


7 7 oe e+ es oe oF 
w 
ul 
o 
pers 
PM Po fo fo fo 


000000 004737 


000004 013746 
000010 012746 
000014 012746 
000020 010600 
000022 104414 
000024 004737 
000030 004737 
000034 062706 
000040 000207 


3; Routine Size: 
; Maximum stack 


s 3505 1 


000000 004737 
000004 104423 
000006 000207 


; Routine Size: 
; Maximum stack 


3506 
3507 
3508 
3509 
3510 
3511 


os ©: Ge ae oe oe 
Th hw PP 





6 nc 


SEQ 0190 
CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 98 
ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1:(CAZTEC.CZRCDB JCZRCD2.SRC;8 (36) 


-SBTTL EMS.18 ERROR MESSAGE SUBROUTINES 


000000V EMS.18::JSR PC ,MSEMS.18 3 
TRAP 23 
RTS PC 

4 words, Routine Base: $CODE$ + 10612 


depth per invocation: 2 words 


EMS_ET (); ' ELAPSED TIME 
PRINTB (EBD_18, .CPLAT); ! “ACCESS FAILED ON PLATTER Xxx.” 
EMS_STC (); ! PRINTX STATUS CODE IF NOT ZERO 
EMS_SBC (); ! PRINTX SUB-CODE 
ENDMSG ; 
-SBTTL MS$EMS.18 ERROR MESSAGE SUBROUTINES 
007132' MSEMS.18: 
JSR PC,EMS.ET 3 
000000G MOV CPLAT, -( SP) 3 
009000G MOV #EBD.18,-CSP) 
000002 MOV #2,-CSP) 
MOV SP ,RO ; SP,* 
TRAP 14 
007250' JSR PC,EMS.STC 3 
007302' JSR PC,EMS.SBC 3 
000006 ADD #6,SP : 
RTS PC 
17 words, Routine Base: $sCODE$ + 10622 


depth per invocation: 5 words 


BGNHSG (EMS_19); 


SBTTL EMS.19 ERROR MESSAGE SUBROUTINES 


000000V EMS.19::JSR PC, ,MSEMS.19 3 
TRAP 23 
RTS PC 

4 words, Routine Base: $CODE$ + 10664 


depth per invocation: 2 words 


EMS_ET (); ! ELAPSED TIME 

PRINTB (EBD_19, .CPLAT); ! “PLATTER XXX. WENT OFFLINE” 
EMS_RP (); ! PRINTX RELEVANT RETPKT FIELDS 
ENDMSG; 

















SEQ 0191 
P 


CZRCD2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 99 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1:[AZTEC.CZRCOB ICZRCD2. SRC;8 (36) 
-SBTTL MSEMS.19 ERROR MESSAGE SUBROUTINES 
000000 004737 007132' MSEMS.19: 
JSR PC,.EMS.ET 3 3507 
000004 013746 000000G MOV CPLAT, -(SP) 3 3508 
000010 012746 000000G MOV #EBD.19,-CSP) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP ,RO ; SP,«* 
000022 104414 TRAP 14 
000024 004737 010104' JSR PC,EMS.RP F 3509 
000030 062706 000006 ADD #6 ,SP 3 3505 
000034 000207 RTS PC 
; Routine Size: 15 words, Routine Base: $CODE$ + 10674 


; Maximum stack depth per invocation: 5 words 


s iz i BGNMSG CEMS_20); 


-SBTTL EMS.20 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.20::JSR PC .MSEMS .20 3 3512 
000004 104423 TRAP 23 
000006 000207 RTS PC 
: Routine Size: 4 words, Routine Base: ‘$CODE$ + 10732 


; Maximum stack depth per invocation: 2 words 


: 3513 2 
3 3514 2 EMS_ET (); ' ELAPSED TIME 
’ ee : PRINTB CEBD_20, .RC25_ADDR); ! "DEVICE XXXXXX(0) NOT PROCESSING COMMAND PACKETS” 
H 16 
; SSi7 1 ENDMSG; 

-SBTTL M$EMS.20 ERROR MESSAGE SUBROUTINES 
000000 004737 007132' MSEMS.20: 

JSR PC,EMS.ET F 
009004 013746 000000G MOV RC25.ADDR, -( SP) H 
000010 012746 000000G MOV #EBD.20,-(SP) 
000014 012746 000002 MOV #2,-CSP) 
000020 010600 MOV SP ,RO ; SP,«* 
000022 104414 TRAP 14 
000024 062706 000006 ADD %6,SP 3 
000030 000207 RTS PC 
; Routine Size: 13 words, Routine Base: $CODE$ + 10742 


; Maximum stack depth per invocation: 5 words 


s 3518 1 BGNMSG (EMS_21); 


SBTTL EMS.21 ERROR MESSAGE SUBROUTINES 


000000 004737 000000V EMS.21::JSR PC ,MSEMS.21 ; 
000004 104423 TRAP 23 
000006 000207 RTS PC 



















SEQ 0192 
P 


czRcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 age 100 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCDB JCZRCD2.SRC;8 (36) 
; Routine Size: 4 words, Routine Base: $CODE$ + 10774 


: Maximum stack depth per invocation: 2 words 


8 3519 2 
$ 3520 2 EMS_ET (); ! ELAPSED TIME 
3 3521 2 PRINTB CEBD_21, .RC25_ADDR); ! "MESSAGE REJECTED BY DUP SERVER ON DEVICE XxXxXxXxx(0)” 
3 3522 2 EMS_CMD (); ! PRINTX COMMAND 
3 aH : PRINTX CEX_DSC, .ST_CODE); : DUP STATUS CODE: xX.” 
; 24 
3 3525 1 ENDMSG; 

-SBTTL MS$EMS.21 ERROR MESSAGE SUBROUTINES 
000000 004737 007132’ MSEMS.21: 

JSR PC,EMS.ET 3 3520 
000004 013746 000000G MOV RC25.ADDR, -( SP) 3 3521 
000010 012746 000000G MOV #EBD.21,-CSP) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP ,RO ; SP, 
000022 104414 TRAP 14 
000024 004737 007342' JSR PC,EMS.CMD 3 3522 
000030 013716 000000G MOV ST.CODE, (SP) 3 3523 
000034 012746 000000G MOV #EX.DSC,-CSP) 
000040 012746 000002 MOV #2,-(SP) 
000044 010600 MOV SP ,RO ; SP,* 
000046 104415 TRAP 15 
000050 062706 000012 ADD #12,SP 3 3518 
000054 000207 RTS PC 
; Routine Size: 23 words, Routine Base: $CODE$ + 11004 


; Maximum stack depth per invocation: 7 words 


; 3526 1 BGNMSG (EMS_22); 


SBTTL EMS.22 ERROR MESSAGE SUBROUTINES 


000000 004737 000000V EMS.22::JSR PC .MSEMS.22 3 3526 
000004 104423 TRAP 23 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: $CODE$ + 11062 


; Maximum stack depth per invocation: 2 words 


.. ere 
s 3528 2 EMS_ET (); ! ELAPSED TIME ' 
>. wee @ PRINTB (EBD_22, .RC25_ADDR); ! “NO RESPONSE FROM FRONT PANEL TEST EXECUTING IN DEVICE XXXXxXx(0)” 
; 3530 2 
s 3532 1 ENDMSG; 
-SBTTL MSEMS.22 ERROR MESSAGE SUBROUTINES 
000000 004737 007132’ MSEMS. 22: 
JSR PC,EMS.ET ; 








SEQ 0193 


CZRcd2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 101 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1:(AZTEC.CZRCOB ICZRCD2.SRC;8 (36) 
000004 013746 000000G MOV RC25. ADDR, -( SP) $ 3529 
000010 012746 000000G MOV EBD .22, -(SP) 

000014 012746 000002 MOV #2,-(SP) 

000020 010600 MOV SP RO ; SP, 

000022 104414 TRAP 14 

000024 062706 000006 ADD #6 ,SP 3 3526 
000030 000207 RTS PC 

3; Routine Size: 13 words, Routine Base: $sCODE$ + 11072 


: Meximum stack depth per invocation: 5 words 


; $3532 1 BGNMSG (EMS_30); 


SBTTL EMS.30 ERROR MESSAGE SUBROUTINES 


000000 004737 000000V EMS.30:: JSR PC ,MSEMS .30 3 3532 
000004 104423 TRAP 23 

000006 000207 RTS PC 

; Routine Size: 4 words, Routine Base: $sCODE$ + 11124 


; Maximum stack depth per invocation: 2 words 


s 33533 2 
; 3534 2 OWN 
s 3535 2 EBH_TB : VECTOR [11] INITIAL (EBH_31, EBH_32, 0, EBH_34, EBH_35, EBH_36, 
s 3536 2 EBH_37, EBH_38, EBH_39, EBH_40, EBH_41); 
8 2d : ! TABLE OF BASIC, HARD ERROR MESSAGE ADDRESSES, INDEXED BY STATUS CODE 
; 
s 3539 2 EMS_ET (); ! ELAPSED TIME 
; 3540 2 PRINTB (PLATT, .CPLAT); ! “PLATTER XXX. - " 
: 3541 3 IF ((.ST_CODE GEQU 1) AND (.ST_CODE LEQU 11)) ! IF STATUS CODE IS WITHIN RANGE 
s 3542 2 HEN ! THEN 
s 3543 3 PRINTB (.EBH_TB [.ST_CODE - 1)) ! PRINTB APPROPRIATE MESSAGE 
s 3544 2 E ! ELSE STATUS CODE OUT OF RANGE 
s 3545 2 PRINTB (EX_SC, .ST_CODE); ! JUST PRINT STATUS CODE 
; 3546 2 EMS_RP (); ! PRINTX OTHER RETPKT FIELDS 
; 3547 2 
; 3548 1 ENOMSG ; 
011134 000000G EBH.TB: .WORD €EBH.31 
011136 000000G -WORD EBH.32 
011140 000000 WORD 0 
011142 000000G WORD €BH.34 
011144 000000G WORD €BH.35 
011146 000000G WORD €EBH.36 
012150 000000G WORD €8H.37 
011152 000000G WORD €BH.38 
011154 000000G WORD €BH.39 
011156 000000G WORD €EBH.40 
011160 0000006 WORD €EBH.41 
-SBTTL MSEMS.30 ERROR MESSAGE SUBROUTINES 
000000 004737 007132: MSEMS. 30: 


















SEQ 0194 
CzRrcd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 1 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB JCZRCD2.SRC;8 (36) 





JSR PC EMS .ET 8 3539 
000004 013746 000000G MOV CPLAT, -(SP) $ 3540 
000010 012746 000000G MOV @PLATT,-(SP) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP ,RO ; SP,« 
000022 104414 TRAP 14 
000024 013700 000000G MOV ST.CODE,RO 3 3541 
000030 001413 BEQ i$ 
000032 020027 000013 CMP RO, 013 
000036 101010 BHI i$ 
000040 006300 ASL RO 3 3543 
000042 016016 011132’ MOV EBH. TB-2(RO), (SP) 
000046 012746 000001 MOV #1,-(SP) 
000052 010600 MOV SP ,RO 3s SP,« 
000054 104414 TRAP 1 
000056 000410 BR 2$ 3 3541 
000060 010016 1$: MOV RO, (CSP) 3 a 3545 
000062 012746 000000G MOV #EX.SC,-(SP) 1 
000066 012746 000002 MOV #2,-(SP) 
000072 010600 MOV SP ,RO ; SP, 
000074 104414 TRAP 1 
000076 005726 TST (SP)+ 
000100 004737 010104: 2s: JSR PC EMS .RP : 3546 
000104 062706 000010 ADD #10,SP $ 3532 
000110 000207 RTS PC 
; Routine Size: 37 words, Routine Base: ‘sCODE$ + 11162 
s Maximum stack depth per invocation: 7 words 
H 3549 1 BGNMSG (EMS_42); 

-SBTTL EMS.42 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.42::JSR PC ,MSEMS.42 ; 3549 
000004 104423 TRAP 23 
000006 000207 RTS PC 
3; Routine Size: 4 words, Routine Base: $CODE$ + 11274 


; Maximum stack depth per invocation: 2 words 


ELAPSED TIME 
“PLATTER XXX. - “ 
“HOST-DETECTED WRITE-COMPARE ERROR” 


EMS_ET (); 
PRINTB (PLATT, .CPLAT); 
PRINTB (EBH_42); 


ee Ge Gs Ge ae oe os oe 
Www 
vu 
es 
w 
MM wr Vf 


EMS_LBN (); PRINTX LBN 
oe EMS_BC (); PRINTX BYTE COUNTS 
3557 ENDMSG ; 
-SBTTL MSEMS.42 ERROR MESSAGE SUBROUTINES 
000000 004737 007132’ MSEMS.42: 
JSR PC,EMS.ET ; 
000004 013746 000000G MOV CPLAT, -(SP) ; 
000010 012746 0000006 MOV PLATT, -(SP) 














SEQ 0195 

czrco2 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 Page 103 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCOB JCZRCD2. SRC;8 (36) 
000014 012746 000002 MOV #2,-(SP) 
000020 010600 MOV SP RO 3; SP,« 
000022 104414 TRAP 14 
000024 012716 000000G MOV #EBH.42, (SP) 3 3553 
000030 012746 000001 MOV #1,-(SP) 
000034 010600 MOV SP ,RO : SP,«* 
000036 104414 TRAP 14 
000040 004737 007706‘ JSR PC,.EMS.LBN 3 3554 
000044 004737 007770' JSR PC EMS .BC 3 3555 
000050 062706 000010 ADD #10,SP F 3549 
000054 000207 RTS PC 
3s Routine Size: 23 words, Routine Base: $sCODE$ + 11304 
s Maximum stack depth per invocation: 6 words 
3 3558 1 BGNMSG (EMS_43); 

-SBTTL EMS.43 ERROR MESSAGE SUBROUTINES 
000000 004737 000000V EMS.43::JSR PC ,MSEMS .43 3 3558 
000004 104423 TRAP 23 
000006 000207 RTS PC 
s Routine Size: 4 words, Routine Base: $sCODE$ + 11362 
s Maximum stack depth per invocation: 2 words 
3 3559 2 
F 3560 2 EMS_ET (); ' ELAPSED TIME 
F 3561 2 PRINTB (PLATT, .CPLAT); ! “PLATTER XXX. - ” 
$ 3562 2 PRINTB CEBH_43); ! “FAILED TO RECEIVE END MESSAGE FOR I/0 COMMANO” 
3 3563 2 EMS_CRN (); ! PRINTX COMMAND REFERENCE NUMBER 
F 3564 2 RP_ADDR [CMDMOD) = .RP_ADDR [STATUS]; ! STATUS FIELD HOLDS MODIFIER (IF ANY) 
3 3565 2 EMS_CMD (); ! PRINTX COMMAND CAND MODIFIER) 
; 3566 2 PRINTX CEX_LBN, .RP_ADDR [BBLK_LO)); ! PRINTX LBN 
3 3567 2 PRINTX CEX_CBC, .RP_ADDR [BCNT_LO)); ! PRINTX BYTE COUNT 
3 3568 2 EMS_BD (); ! PRINTX I/O BUFFER DESCRIPTOR 
F 3569 2 
3 3570 1 ENDMSG ; 

-SBTTL MSEMS.43 ERROR MESSAGE SUBROUTINES 
000000 010146 MSEMS.43; 

MOV R1,-CSP) 3 
000002 004737 007132’ JSR PC,EMS.ET F 
000006 013746 000000G j MOV CPLAT, -( SP) 3 
000012 012746 000000G MOV @PLATT,-C(SP) 
000016 012746 000002 MOV @2,-(SP) 

- 000022 010600 MOV SP ,RO 3; SP,« 

000024 104414 TRAP 14 
000026 012716 000000G MOV @€BH.43, (SP) 3 
000032 012746 000001 MOV #1,-(SP) 
000036 010600 MOV SP ,RO ; SP, 
000040 104414 TRAP 14 
000042 004737 007216' JSR PC EMS .CRN F 
000046 013701 000000G MOV RP .ADOR,R1 3 








SEQ 0196 
) 


czRcd2 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:36:36 VAX-11 Bliss-16 V4.0-579 ‘age 104 
vo2.0 ERROR MESSAGE SUBROUTINES 14-Jun-1985 09:32:03 USER$1: (AZTEC. CZRCDB ICZRCD2.SRC;8 (36) 
000052 010100 MOV R1,RO ; RP.ADOR,« 
000054 016061 000016 000012 MOV 16(RO),12(€R1) 
000062 004737 007342’ JSR PC .EMS.CMD 3 3565 
000066 013700 0000006 MOV RP .ADDR,RO $ 3566 
000072 016016 000040 MOV 40(RO), (SP) 
000076 012746 000000G MOV @EX.LBN, -CSP) 
000102 012746 000002 MOV @2,-(SP) 
000106 010600 MOV SP ,RO : SP,* 
000110 104415 TRAP iS 
000112 013700 000000G MOV RP .ADDR, RO ; 3567 
000116 016016 000020 MOV 20(RO), (SP) 
000122 012746 000000G MOV #€X. CBC, -CSP) 
000126 012746 000002 MOV #2,-(SP) 
000132 010600 MOV SP ,RO ; SP,«# 
000134 104415 TRAP 15 
000136 004737 010046: JSR PC,EMS.8D 3 3568 
000142 062706 000020 ADD #20, SP 3 3558 
000146 012601 MOV (SP)+,R1 
000150 000207 RTS PC 
; Routine Size: 53 words, Routine Base: sCODE$ + 11372 
; Maximum stack depth per invocation: 11 words 
8 ye See | 
Fy BS72 i END 
F US7s §& 
$ 3574 O ELUDOM 
; OTS external references 
-GLOBL $SAVES, $SAVE4, $SAVE3, $SAVE2 
-GLOBL BLSMUL 
$ PSECT SUMMARY 
, Psect Name Words Attributes 
s $CODE $ 2482 MO, 2 « Lh. WEL. CON 
: $PLIT$ 487 RO, 8 ~ toh, REL. CON 
Fy Library Statistics 
; wae -eee- Symbols -------- Pages . Processing 
; File Total Loaded Percent Mapped Time 
; USER$1:[AZTEC.CZRCDBIJCZRCDL.L16;6 276 204 73 16 00:00.2 
$ COMMAND QUALIFIERS 
$ BLISS/PDP11 CZRCD2.SRC/LIST/EN:NOEIS 
; Size: 2342 code + 627 data words 


; Run Time: 
; Elapsed Time: 


; Lexemes/CPU-Min: 


; Memory Used: 


; Lines/CPU Min: 


04:34.1 
04:35.7 
782 
8635 
441 pages 


; Compilation Complete 


ee ee ee 





INI_RRING : NOVALUE, 
SET_CTLR_CHAR : NOVALUE, 
UNIT_INIT : NOVALUE, 





14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 


RC25 EXERCISER GLOBAL LIBRARY 
DIAGNOSTIC SUPERVISOR LIBRARY 


ROUTINES APPEAR IN THIS ORDER 
INDENTATION IMPLIES CALLED SUBROUTINE 
INITIALIZATION SUBTEST 


CZRCD3 

3 0001 O MODULE CZRCD3 ( 

3 0002 0 “TITLE ‘CZRCOBO RC25 DISK EXERCISER’ 
; 0003 0 IDENT = ‘V02.0', 

3 0004 0 ADDRESSING _MODE (ABSOLUTE) 

3 0005 0 = 

: 1 BEGIN 

3 0007 i 

Fy 0043 1 “SSBTTL ‘DECLARATIONS’ 

: 0044 1 

8 0045 1 LIBRARY ‘CZRCOL’; ! 
ry 0046 1 REQUIRE ‘BLSMAC.REQ’ ; ! 
3 1535 1 

3 1536 1 EQUALS; 

3 ioer -& 

F i538 1 ! 
3 1539 i FORWARD ROUTINE ! 
s i540 1 INIT_TEST : NOVALUE, H 
s i541 i ORIVER_INIT : NOVALUE, 

$ 1542 1 CTLR_INIT : NOVALUE, 

3 1543 1 INI_CTLR_DAT : NOVALUE, 

8 1544 1 REG_EXIST, 

8 1545 1 VEC_BR_TEST, 

3 1546 li INT_GEN, 

$ 1547 i HARD_INIT, 

FY 1 

3 1 

s 1 

3 1 


ACCESS : NOVALUE, 


~~“ 











s i552 1 DM_EXER : NOVALUE, ! OM EXERCISER SUBTEST 
s tH i DM_INIT : NOVALUE, 

; i554 1 OM_QUIT, 

: 1555 1 DM_RETPKT : NOVALUE, 

s 1556 1 OM_MSG : NOVALUE, 

5... ors DM_ACC, 

s oe & DM_TALLY : NOVALUE, 

,. Ba s UPD_OMBC : NOVALUE, 

s 1560 1 DM_TIME : NOVALUE, 

: 1561 1 MULTI_DRIVE : NOVALUE, ! MULTI-DRIVE SUBTEST 
s 1562 1 MD_INIT : NOVALUE, 

s i563 1 INIT_IO_BUFF : NOVALUE, 

; 1564 1 QI0_OK, 

s 1565 1 MD_QUIT, 

; 1566 1 QIO_GEN : NOVALUE, 

S2) ier. es GET_RANDOM : NOVALUE, 

s 1568 1 QIO_UNIT : NOVALUE, 

s 1569 1 QIO_FUNC : NOVALUE, 

, GN QIO_LBN : NOVALUE, 

s 7 § ADV_BST : NOVALUE, 

‘- oe 2 QIO_SIZE : NOVALUE, 

s 73 1 FILL_BUFF : NOVALUE, 

s 1574 1 PROC_RETPKT : NOVALUE, 

s 6% § IO_RETPKT : NOVALUE, 
Be: 2 ‘FSET_UPAR : NOVALUE, 

s 77 & MD_TALLY : NOVALUE, 

s mm § HOST_WRT_CHK : NOVALUE, 
p> Rave i CMP_DATA, 

s 1580 1 SWEEP : NOVALUE, 

s 1581 1 RPS_REM, 

>» ee 3 DR_RETPKT : NOVALUE, 

s i503 1 DRV_TIMCHK : NOVALUE, 

s 1584 1 RCINTO : L$ISR NOVALUE, ! RC25 INTERRUPT SERVICE ROUTINES 
s 1585 1 RCINT1 : L$ISR NOVALUE, 

. es 5 RCINT2 : L$ISR NOVALUE, 

s wer 3 RCINT3 : L$ISR NOVALUE, 


SEQ 0198 


CZRCD3 
vo2.0 


SO SO Ge Sd GO SP GF SE GE Sh GE Ge GH GO Ge Ge Gd Ge Ge GF GF GF Ge Gd G2 GF BE GS GE GS GE Ge Ge GS GO GO GE GS Ge GS GS GS GS Ge Ge Gs Ge GD Gs GS GO GS Ge GS Gb 6 66 
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SEQ 0199 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 3 
DECLARATIONS 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (2) 


RCINT : NOVALUE, 

INT_PROC : NOVALUE, 
ISET_CPAR : NOVALUE, 
FATAL_ERROR : NOVALUE, 
POLL_CRING : NOVALUE, 
POLL _RRING : NOVALUE, 

ENV_TO_RP : NOVALUE, 
DATAGM : NOVALUE; 


PSECT OWN = $GGG$ (READ, NOWRITE, EXECUTE, LOCAL, CONCATENATE); 


OWN 
COMM_AREA : BLOCKVECTOR (MAX_CTLR, COMM_LEN, WORD) FIELD (COM_FIELDS), 

: U/Q PORT COMMUNICATIONS AREA BETWEEN HOST AND RC25 CONTROLLERS 
BST : BLOCKVECTOR [MAX_UNITS, BST_LEN, WORD] FIELD (B_FIELDS), 

g BLOCK SEQUENCE TABLE FOR SEQUENTIAL LBN (VS. RANDOM SEEK) MODE 
DPST : VECTOR ([MAX_UNITS, BYTE], ! DATA PATTERN SEQUENCE TABLE 
ICOM_ADDR : REF BLOCK [COMM_LEN, WORD] FIELD (COM_FIELDS), 

¢ ADDRESS OF INTERRUPTING CONTROLLER’S U/Q PORT COMMUNICATION AREA 
ITENV_ADDR : REF BLOCK [ENV_LEN, WORD] FIELD (E_FIELDS), 

: ADDRESS OF AN MSCP ENVELOPE CINTERRUPT PROCESSING) 
ICST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C_FIELDS), 

2 ADDRESS OF INTERRUPTING CONTROLLER'S CST 
IDCT_ADDR : REF BLOCK [DCT_LEN, WORD] FIELD (DC_FIELDS), 

] ADDRESS OF INTERRUPTING CONTROLLER‘S DCT 
INT_ADDR : VECTOR ([MAX_CTLR] INITIAL CRCINTO, RCINT1, RCINT2, RCINT3), 

: INTERRUPT SERVICE ROUTINE ADDRESS TABLE 
ICTLR : WORD, ! INTERRUPTING CONTROLLER NUMBER 
MX1 : SIGNED WORD, ! MSCP ENV INDEX FOR FIRST QIO 
MX2 : SIGNED WORD, ! MSCP ENV INDEX FOR SECOND QIO 


MAD1 : REF BLOCK CENV_ LEN, WORD) FIELD (E _FIELDS), 
ADDRESS OF MSCP ENVELOPE FOR FIRST QIo 
MAD2 : REF BLOCK [ENV_LEN, WORD] FIELD (E_FIELDS), 
ADDRESS OF MSCP ENVELOPE FOR SECOND QIO 
CURRENT DEVICE’S VECTOR ADDRESS 


VEC_AD : WORD, 

BRLEVEL : WORD, CURRENT DEVICE’S BR LEVEL 

USIZE : WORD, UNIT SIZE (NO. OF LBN‘S) 

DM_TIMR : VECTOR [MAX_CTLR], TIMERS FOR ONE PASS OF FRONT PANEL TEST (DM EXER) 

SWEEP_FLAG : BYTE, CALL / DON'T CALL SWEEP () (MULTI-DRIVE SUBTEST) 

ROM_CNT : WORD INITIAL (RDM_LEN), NUMBER OF RANDOM NUMBERS \ KEEP 

RANDOM : VECTOR [RDM_LEN, WORD], RANDOM NUMBER TABLE (PATTERN 1) / TOGETHER 

PATO2 : VECTOR (2) INITIAL (1, ! PATTERN 2 

#0'000000' ), 

PATO3 : VECTOR 2) nities (1, PATTERN 3 

PATTERN 4 


#0'177777 
PATO4 : VECTOR (2) INITIAL (1, 
#0‘ 105613’ ) 
PATOS : VECTOR [2] INITIAL (1, PATTERN 5 
#0'031463'), 
PATTERN 6 
PATTERN 7 


oe to 


PATO6 : VECTOR (2) INITIAL (1, 
#0'030221'), 

PATO7 : VECTOR (17) INITIAL (16, 

#0'000001', #0'000003', #0'000007', #0'000017', 
%0'000037', #0'000077', #0'000177', #0‘000377', 
#0'000777', #0'001777', #0'003777', #0'007777', 
#0'017777' , 80'037777', #0'077777', #0'177777'), 
VECTOR [17] INITIAL (16, 


PATO8 PATTERN 8 





PATO9 


PAT12 


PAT15 


PAT16 


PAT17 


PAT18 


cel ol ll ol ll ll ol al ll ll ll ol ed ll ed oe od ed od od od ed ed ed ed ed ed ed od ed ed OL ea Led ee Oe Oa ea ee ee ee ee ee ee ee ee 





PATIO : 
PATI1 : 


PAT1i3 : 
PAT14 : 


PAT19 : 


#0'177776', 
#0'177740', 
#0‘177000', 
#0'160000' , 


VECTOR [17] 


#0'000000', 
80'177777', 
#0'177777', 
#0'000000', 
#0‘000000' , 


CZRCDBO RC25 DISK EXERCISER 
DECLARATIONS 


#0'177774', #0'177770', 
#0'177700', #0'177600', 
#0'176000', #0'174000', 
#0'140000’,, #0'100000', 
INITIAL (16, 

#0'000000', #0'000000', 
#0'177777', #0'000000',, 
#0'177777', 

#0‘177777', #0‘000000', 
#0‘177777'), 


VECTOR (2) INITIAL (1, 


#0‘ 133331‘), 
VECTOR (17) 


#0'052525', 
#0‘125252', 
#0' 125252’, 
#0'052525', 
#0‘052525', 


VECTOR [21] 


#0‘026455', 
#0'151322', 
#0'151322', 
#0'151322', 
#0'151322', 


INITIAL (16, 
#0'052525', #0'052525', 
#0'125252', #0'052525', 
#0‘ 125252’, 
#0‘ 125252‘, #0'052525', 
#0'125252' ), 
INITIAL (20, 
#0'026455', #0'026455', 
#0'151322', #0'026455', 
#0'°51322', #0'026455', 
#0'026455', #0'151322', 
#0'026455', #0'151322', 


VECTOR [2] INITIAL (1, 


#0‘ 066666‘ ) 


VECTOR [17] INITIAL (16, 


#0‘000001', 
#0'000020', 
#0'000400', 
#0‘010000', 


#0'C00002', #0'000004', 
#0‘000040', #0'000100', 
#0'001000' , #0'002000', 
#0‘'020000' , #0'040000', 


VECTOR (17) INITIAL (16, 


#0'177776', 
#0'177757', 
#0'177377', 
#0'167777', 


80'177775', #0'177773', 
#0'177737', #0'177677', 
80'176777', #0'175777', 
#0'157777', #0'137777', 


VECTOR [17] INITIAL (16, 


#0‘133331', 
#0'155554', 


#0'133331', #0'133331', 
#0'155554', #0'133331', 


#0'155554', #0'155554', 
#0‘ 133331‘, #0'155554', 
#0'133331', #0'155554' ), 
VECTOR [22] INITIAL (21, 


#0'133331', 


#0‘000000', 
#0'071311', 
#0‘ 106466', 
#0'071311', 
#0‘ 106466’, 


#0‘ 106466‘ ) 


#0'106466', #0'106466', 
#0'071311', #0'106466', 
#0'106466', #0‘'071311', 
#0‘'071311', #0'071311', 
#0'106466', #0'106466', 


VECTOR [22] INITIAL (21, 


#0‘ 106466’, 
#0‘ 106466’, 
#0'071311', 
#0‘ 106466’, 
#0'071311', 


#0'000000', #0'071311', 
#0'106466', #0'106466', 
#0'071311', #0'071311', 
#0'106466', #0'106466', 
#0'071311', #0'071311', 


#0'071311', #0'071311'), 
VECTOR [22] INITIAL (21, 


14-Jun-1985 09:41 


14-Jun-1985 09:33: 


#0'177760', 
#0'177400', 
#0'170000', 
#0'000000' ), 


#0'177777', 
#0'000000' , 


#0'177777', 


#0'125252', 
#0'052525', 


#0'125252', 


#0'151322', 
#0'026455', 
#0'026455', 
#0'026455', 
#0'026455' ), 


#0'000010', 
#0'000200' , 
#0'004000', 
#0‘100000' ), 


#0'177767', 
#0'177577', 
#0'173777', 
#0'077777'), 


#0'155554', 
#0'133331', 


#0‘155554', 


#0'071311', 
#0'106466', 
#0'071311', 
#0'106466', 
#0'106466', 


#0'071311', 
#0‘ 106466', 
#0‘ 106466', 
#0‘071311', 
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SEQ 0201 


CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 5 
vo2.0 DECLARATIONS 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (2) 
3 1702 1 #0'000000',, #0'134631', #0'134631', #0'043146', 

; 1703 1 80'043146', #80'043146', #0'134631', #0'134631', 

: 1704 1 60'134631', #0'134631', #60'043146', #0'043146', 

; 1705 1 60'043146', #80'043146', #0'043146', #0'134631', 

; 1706 1 60'134631', 60'134631', #60'134631', #60'134631', 

; 1707 1 #0'134631'), 

8 1708 1 PAT20 : VECTOR [22] INITIAL (21, ! PATTERN 20 
: 1709 1 #0'134631', #0'000000', #0'043146', 

; 1710 1 60'134631', #60'134631', #0'134631', #0'043146', 

3 1711 1 60'043146', #60'043146', #80'043146', #0'134631', 

: 1712 1 60'134631', #0'134631', #0'134631', #0'134631', 

; 1713 1 60'043146', #80'043146', #80'043146', #0'043146', 

3 1714 1 80'043146', #0'043146'), 

3 a713 4 PAT21 : VECTOR [2] INITIAL (1, ! PATTERN 21 
3 1716 1 #0'000000' ), ! (LBN) 
$ oe g & gee DPA_TBL : VECTOR [DP_CNT] INITIAL ! DATA PATTERN ADDRESS TABLE 
3 1718 1 CROM_CNT, PATO2, PATO3, PATO4, PATOS, 

’ 1719 1 PATO6, PATO7, PATO8, PATO9, PATLO, PAT11, 

3 1720 1 PAT12, PAT13, PAT14, PAT1S, PAT16, PAT17, 

3 1721 1 PAT18, PAT19, PAT20, PAT21), 

3 1722 1 ts 

3 1723 1 ! THE FOLLOWING CODE IS THE CROM PRIMER WHICH WAS DEVELOPED 

3 1724 1 ! INDEPENDENTLY. ITS BINARY .SAV FILE WAS RUN THROUGH THE PROGRAM 

3 1725 1 ! “DMCONV”, PRODUCING THIS COMPILABLE VECTOR. 

Fy 1726 1 !- 

: 1727 1 

3 1728 1 CROMP: VECTOR[206,WORD) 

s 1729 1 PRESET ( 

3 1730 1 [0] = #0'000140', ! THIS IS THE DM PROGRAM BYTE COUNT. 

F 1731 i {1] = #0'000000', 

3 s7a2 6 [2] = #0'000472', ! THIS IS THE DM OVERLAY BYTE COUNT. 

3 1733 1 {3] = #0'000000', 

3 1734 1 [4] = #0'051103', ! NEXT 3 WORDS = PROGRAM NAME CASCII) 

3 a733 i (5] = 0'046517', ! PROGRAM NAME IS ‘CROMP ' 

; 1736 1 [6] = #0'020120', 

3 1737 1 {7] = #0'000001', ! THIS IS THE PROGRAM VERSION 

3 1738 1 (8) = #0'000013', ! UPPER BYTE=TIME OUT VAL. LOWER = FLAGS 

3 1739 1 [9] = #0'000000', 

F 1740 1 [10] = #0'000000', 

$ 1744 1 (11) = #0'000000', 

: 1742 1 [12] = #0'000000', 

F 1743 1 (13) = #0'000000', 

: 1744 1 (14) = #0'000000', 

$ 1745 1 {15] = #0'000000', 

3 1746 1 [16] = #0'104206', ! DM CODE STARTS HERE 

: 1747 1 [17] = 0'007760', 

5 1748 1 {18] = #0'002754', 

; 1749 1 [19] = #0'000000', 

F 1750 1 [20] = 0'000000', 

3 1751 4 {21] = #0'000000', 

$ 17352 i (22) = #0'000000', 

3 1783 1 (23) = 0'000000', 

$ 1754 1 [24] = #0'000000', 

$ 1755 {i [25] = #£0'000235', 

3 1756 1 [26] = #0'000000', 

5 1757 1 [27] = #0'000000', 

3 1758 1 {28] = #£0'104204', 
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SEQ 0202 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21  VAX-11 Bliss-16 V4.0-579 Page 6 
DECLARATIONS 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (2) 
[29] = 0'007774', 
(30) = #0'104140', 
(31) = #0'002752’, 
{32] = #0'104204', 
{33} = #0'002751', 
[34] = #0'104203', 
{35} = #0'007000', 
[36] = #0'104647', 
(37) = #0'000001', 
(38) = #0'104641', 
{[39] = #0'000002', 
{40} = #0'104142', 
[41] = #0'060020', 
[42] = #0'102207', 
[43] = #0'000037', 
[44] = #0'052754', 
[45] = #0'104077', 
[46] = #0'007006', 
[47] = #0'032305', 
[48] = #0'000000', ! DM OVERLAY CODE STARTS HERE 
[49] = #0'000000', 
[50] = #0'000000', 
[51] = #0'000000', 
[52] = #0'000000', 
{53} = #0'000000', 
(54) = #0'104207', 
{55} = #0'007000', 
([56] = #0'104201', 
[57] = #0'000002', 
[58] = #0'104202', 
[59] = #0'002740', 
[60] = #0'107027', 
(61) = #0'107017', 
[62] = #0'105012', 
[63] = 0'060011', 
[64] = 0'027107', 
[65] = #0'027203', 
[66] = #0027146’, 
[67] = #0'114000', 
{[68] = #0'007005', 
[69] = #0'114000', 
[70] = #0'007776', 
{[71] = #0'114000', 
(72] = 0'007776', 
(73] = #60'104077', 
(74] = #0'104206', 
[75] = #0'007760', 
{[76] = #0'104301', 
[77] = #0007005’, 
([78] = #0'104610', 
[79] = #0007234’, 
[80] = #0'007767', 
{81} = #0'115000', 
(82) = s0'007767', 
[83] = #0'077076', 
[84] = #0'027120', 
[85] = 0'104200', 





SEQ 0203 
P 


CZRCO3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 7 
vo2.0 DECLARATIONS 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 mit (2) 
s 1816 1 [86] = #0'007051', 
s wwmi7 i (87) = #0'002750', 
s 1818 1 [88] = #0'002740', 
; 1819 1 [89] = #0'027146', 
; 1820 1 [90] = #0'115000', 
; 1621 1 {91} = #0'007265', 
s M22 i (92) = #0'057051', 
s 18623 1 [93] = #0'104200', 
s 1824 1 [94] = #0'177777', 
; 1825 1 [95] = #0'007004', 
s 1826 1 [96] = #0'027130', 
s 1827 1 (97] = #0'027146', 
; 18628 1 [98] = #0'115000', 
s eo 3 [99] = #0'007265', 
s 1050 1 [100] = #0'017071', 
s 1631 1 (101) = #0'114000', 
; 1832 1 [102] = #0'007004', 
s 1633 1 [103] = #0'027130', 
>; 1634 1 (104) = #0'007051', 
s 1635 1 (105) = #0'027162', 
; 1836 1 [106] = #0'027203', 
s ms7 i {107} = #0'114000', 
; 1838 1 [108] = #0'007264', 
s 1839 1 {109} = #0'027216', 
; 1840 1 (110) = #0'115400', 
; 1841 1 (111) = #0'007005', 
s 1842 1 (112) = #0'106200', 
; 1843 1 {113} = #0'000003', 
; 1844 1 (114) = #0'007005', 
> 1845 1 (115) = #0'037031', 
; 184 1 (116) = #0'114000', 
; 1847 1 {117] = #0'007005', 
> 1848 1 [118] = #0'007031', 
s 1849 1 (119] = #0'104207', 
s 1850 1 [120] = #0'007002', 
> Ws i {121} = #0'104201', 
s 18652 1 [122] = #0'000002', 
s 18653 i {123} = #0'060023', 
; 18654 1 (124) = #0'102207', 
. 2s & [125] = #0'000037', 
s 1856 1 (126) = #0'057107', 
s 037 1 (127] = #0'000000', 
s 1858 1 (128) = #0'104307', 
s 1859 1 {129} = #0'007005', 
s 1860 1 [130] = #0'104201', 
s 1861 1 [131] = #0'000005', 
; 1862 1 {132} = #0'060031', 
s 1863 1 {133} = #0'104010', 
; 1864 1 (134) = #0'007001', 
s 1865 1 (135) = #0'000000', 
; 1866 1 (136) = #0'104307', 
s 1067 1 {137] = #09'907002', 
; 1868 1 [138] = #0‘ 105207’, 
; 1869 1 [139] = #0'000060', 
» 2m {140} = #0'114001', 
5. m.. 5 (141) = #0104202’, 
s 1872 1 [142] = #0'000001', 
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CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 age 8 
DECLARATIONS 14-Jun-1985 09:33:42 USER$1:[AZTEC.CZRCDB ICZRCD3.SRC;17 (2) 
(143) = #0'104203', 
(144) = #0'007004', 
(145) = #0'060021', 
[146] = #0'102207', 
(147) = #0‘'000037', 
(148) = #0'057130', 
{149} = #0'000000', 
{150} = #0'104307', 
(151) = #0'007002', 
{152} = #0'114001', 
(153) = #0'104202', 
(154) = #0'000032', 
(155) = #0'104203', 
(156] = #0'007234', 
{(157] = #0'060020', 
(158] = #0'102207', 
{159} = #0'000037', 
[160] = #0'057146', 
(161) = #0'000000', 
[162] = #0'104200', 
(163) = #0'000004', 
(164] = #0'007000', 
(165] = #0'104207', 
[166] = #0'002743', 
(167) = #0'104301', 
[168] = #0'007001', 
{169} = #0'104272', 
{170} = #0'105612', 
(171) = #0'007240', 
{172] = #0'100612', 
{173} = #0'007240', 
(174) = #0'115401', 
(175) = #0'117400', 
[176] = #0'007000', 
{177} = #0'037171', 
[178] = #0'000000', 
{179} = #0'114000', 
{180} = #0'002743', 
[181] = #0'114000', 
{182} = #0'002744', 
[183] = #0'114000', 
[184] = #0'002745', 
(185) = #0'114000', 
(186) = #0'002746', 
{187} = #0'114000', 
{188} = #0'002747', 
{189} = #0'000000', 
{190} = #0'104307', 
{191} = #0'007002', 
{192} = #0'105207', 
[193] = #0'000010', 
(194) = #0'114001', 
(195) = #0'104202', 
[196] = #0'000025', 
{197} = #0'104203', 
(198) = #0'007240', 


#0'060021', 
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SEQ 0205 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 9 
DECLARATIONS 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 (2) 


[200] «= #0'102207', 
{201} = #0'000037', 
(202) = #0'057216', 
[203] = #0'000000', 
(204) = #0'143367', 
[205] = #0'000000'); 
EXTERNAL 
PATCH : VECTOR [100, WORD], ! PATCH AREA 
CPT : VECTOR [MAX_UNITS, BYTE), 
2 CURRENT PASS TESTING (YES / NO) PER UNIT 
CST : BLOCKVECTOR [MAX_CTLR, CST_LEN, WORD] FIELD (C_FIELDS), 
: RUN-TIME CONTROLLER STATUS TABLES 
CST_ADDR : REF BLOCK [CST_LEN, WORD] FIELD (C_FIELDS), 
: CONTROLLER STATUS TABLE ADDRESS OF “CURRENT” CONTROLLER 
DCT : BLOCKVECTOR [MAX_CTLR, DCT_LEN, WORD) FIELD (DC_FIELDS), 
¢ DRIVER CONTROLLER TABLES 
DCT_ADOR : REF BLOCK [DCT_LEN, WORD) FIELD (OC_FIELDS), 
: ADDRESS OF “CURRENT” DRIVER CONTROLLER TABLE 
RC25_ADDR : REF RC25 FIELD (RC_REG), 
: DEVICE ADDRESS OF “CURRENT” CONTROLLER 
IRC25_ADOR : REF RC25 FIELD (RC_REG), 
: DEVICE ADDRESS OF INTERRUPTING CONTROLLER 
DM_COMM : BLOCKVECTOR [MAX_CTLR, DMC_LEN, WORD) FIELD (OMC_FIELDS), 
: DM EXERCISER COMMUNICATION AREA (LINK TO FRONT PANEL TEST) 
DMC_ADDR : REF BLOCK [DMC_LEN, WORD) FIELD (OMC_FIELDS), 
: ADDRESS OF CURRENT CONTROLLER'S DM EXERCISER COMMUNICATION AREA 
RP_SAVE : VECTOR [MAX_CTLR * RPS_LEN, BYTE, SIGNED3, 
: RETURN PACKET SAVE AREA 
RPS_X1 : WORD, ! STARTING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 
RPS_X2 : WORD, ! ENDING INDEX OF CURRENT CONTROLLER'S RP_SAVE AREA 


OUTC_LIST : VECTOR [MAX_CTLR * OUTC_CNT, BYTE, SIGNED), 
: OUTSTANDING COMMAND LIST (CONTAINS MSCP ENVELOPE INDECES) 
OUTC_TIMR : VECTOR [MAX_CTLR * OUTC_CNT, WORD), 


: OUTSTANDING COMMAND TIMERS 
OCL_X1 : WORD, 
: - ge Rg OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 
a : W ° 
: ENDING INDEX OF CURRENT CONTROLLER'S OUTSTANDING COMMAND AREA 


TALLY : VECTOR [MAX_UNITS * TALLY_LEN, WORD) FIELD (T_FIELDS), 
: STATISTICS TABLES 
T_ADDR : REF BLOCK [TALLY_LEN, WORD] FIELD (T_FIELDS), 
: ADDRESS OF STATISTICS TABLE (TALLY) FOR CURRENT UNIT 
MSCP_ENV : BLOCKVECTOR [ENV_CNT, ENV_LEN, WORD] FIELD (E_FIELDS), 
: MSCP ENVELOPE POOL 
ENV_USE : VECTOR [ENV_CNT, BYTE, SIGNED), 


: MSCP ENVELOPE POOL ALLOCATION TABLE 
RETPKT : BLOCKVECTOR [RP_CNT, RP_LEN, WORD] FIELD (RP_FIELDS), 

$ RETURN PACKET POOL - 
RP_USE : VECTOR [RP_CNT, BYTE, SIGNED), 

: RETURN PACKET POOL ALLOCATION TABLE 
RP_INDOX : WORD, ! CURRENT RETURN PACKET INDEX 
RP_ADDR : REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS?, 

2 CURRENT RETURN PACKET ADDRESS 
BUFF _DESC : BLOCKVECTOR [MAX_BUF_CNT, DESC_LEN, WORD] FIELD (BD_FIELDS), 

: TABLE OF I/0 BUFFER DESCRIPTORS 


BUFF _OWN : VECTOR [MAX_BUF_CNT, BYTE, SIGNED], 
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CZRCDBO RC25 DISK EXERCISER 
DECLARATIONS 





I/0 BUFFER OWNERSHIP (CONTROLLER NUMBER) 
I00@ : VECTOR [IODQ@_LEN, BYTE), 

1/0 DONE QUEUE - CIRCULAR QuEUE OF RETPKT 
I0D0Q_IN : WORD, 
I0DQ_OUT : WORD, 
ENTRY_REASON : BYTE, 
T_FLAG : 


WORD, 

DUR : VECTOR (MAX_ UNITS, BYTE), 
QIO : VECTOR (MAX_CTLR, BYTE], 
MEM_SIZE : WORD, 

FREE _MEM_ADDR, 

BUFF _SIZE : WORD, 

NUM_BUFF : WORD, 

CLK_TYPE : WORD, 


CLK_HERTZ : WORD, 
CLK_CSR, 

CLK “VECTOR, 

HOURS : 


WORD, 


ele ete a a a a a a a 


14-Jun-1985 09:41: 
14-Jun-1985 09:33:42 





INDECES 
! I/0 DONE QUEVE IN POINTER 
I/0 DONE QUEVE OUT POINTER 
HOW CURRENT PASS WAS INVOKED 
ONE SECOND TIMING FLAG 
END-OF -PASS FLAG 
MEMORY MANAGEMENT FLAG 
INITIALIZATION-IN-PROGRESS FLAG 
NUMBER OF “CURRENT” CONTROLLER 
CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
CST OFFSET FOR CURRENT UNIT 
TOTAL NUMBER OF CONFIGURE. CONTROLLERS 
DROP UNIT REASON 
NUMBER OF OUTSTANDING QIOS PER CONTROLLER 
AVAILABLE MEMORY CIN WORDS) UP TO 28K 
START OF FREE MEMORY BELOW 28K 
SIZE (BYTES) OF AN I/0 BUFFER 
NUMBER OF I/0 BUFFERS 
TYPE OF CLOCK ON SYSTEM 
(O = NONE, -1 = L-CLOCK, 1 = P_CLOCK) 

CLOCK HERTZ RATE 
CLOCK CSR ADDRESS 
CLOCK VECTOR ADDRESS 
ELAPSED TIME - HOURS, 

MINUTES, 

SECONDS, 

TICKS 
CURRENT STATUS CODE 
CURRENT SUB-CODE 
CURRENT STEP IN HARD_INIT 
OFFSET (O OR 2) TO READ IP OR SA 
STORAGE FOR SA REGISTER READS AND WRITES 
NON-EXISTENT MEMORY TRAP INDICATOR 
COMMAND REF NUMBER OF LAST COMMAND SENT 


21 VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 
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CZRCDBO RC25 DISK EXERCISER 
DECLARATIONS 


-03, 
SWP_STRACK : WORD, 
SWP_ETRACK : WORD, 
SWP_FLAGS : BYTE, 
SWP_DPAT : BYTE, 
SWP_UCNT : WORD 


SWP_UDPAT : VECTOR [MAX_UDP_CNT, WORD), 


L$HIMEM, 
LS$UNIT, 
L$LUN; 


EXTERNAL ROUTINE 
NEX_TRA’ 


-TRAP : L$ISR NOVALUE, 
COPY_BLK : NOVALUE, 
SET_CPAR : NOVALUE, 
SET_UPAR : NOVALUE, 
GET_ENV, 

PUT_ENV : NOVALUE, 
GET_RETPKT, 
PUT_RETPKT :; NOVALUE, 
GET_IO_BUFF : NOVALUE, 
PUT_IO_BUFF ;: NOVALUE, 
PUTA_BUFF : NOVALUE, 


IN_I0DQ : NOVALUE, 


DRV_CTLERR : NOVALUE, 
HARD_ERR : NOVALUE, 
UPD_IOC : NOVALUE, 
OVF_CHK : NOVALUE, 
XFR_CHK : NOVALUE, 
SEND, 

WAIT : NOVALUE, 
EMS_10 : NOVALUE, 
EMS_12 : NOVALUE, 
EMS_13 : NOVALUE, 
EMS_14 : NOVALUE, 
EMS_15 : NOVALUE, 
EMS_16 : NOVALUE, 


14-Jun-1985 09; 





STARTING TRACK 

ENDING TRACK 

FLAGS (SEE DOCUMENTATION) 
DATA PATTERN NUMBER 

USER DATA PATTERN COUNT 
USER DATA PATTERN 


41:21 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:33:42 USER$1: [AZTEC .CZRCDB JCZRCD3. SRC; 17 


SEQ 0207 





age 11 
(2) 


ed 








-—s 


SEQ 0208 
CZ2RCO3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 12 
vo2.0 DECLARATIONS 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (2) 
s 30h § EMS_17 : NOVALUE, 
s e102 1 EMS_18 : NOVALUE, 
s 2103 1 EMS_19 : NOVALUE, 
>; 2104 1 EMS_20 : NOVALUE, 
> e105 1 EMS_21 : NOVALUE, 
s 2106 1 EMS_22 : NOVALUE, 
s e107 1 EMS_30 : NOVALUE, 
s 2106 i EMS_42 : NOVALUE, 
» 2100 EMS_43 : NOVALUE; 








nl eee nem 





SEQ 0209 
CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-£79 Page 13 
vo2.0 TEST SECTION 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB IJCZRCD3.SRC;17 €3) 
5 aw i “@SBTTL ‘TEST SECTION’ 
S. a & 
3 eli2 1 te 
; wae 2 ! THIS SECTION CONTAINS THE TOP-LEVEL TEST CODE FOR THE RC25 DISK 
: 2114 1 H EXERCISER. THE EXERCISER CONSISTS OF ONE TEST WHICH IS SUBDIVIDED INTO 
FY a4 : H A NUMBER OF SUBTESTS. ALL SUBTESTS ARE DECLARED WITHIN THIS BLOCK. 
; !- 
8 pale 
Fy 2118 3 BGNTST; 
FY 2119 3 
3 2120 3 EOP_FLAG = FALSE; 
3 212i. @ IF .ENTRY_REASON NEQU NEW_PASS ! IF START, RESTART, CONT, OR PWR FAIL 
ry 2122 3 THEN ! THEN 
8 2123 4 BEGIN 
3 2124 4 
3 2125 6 BGNSUB ; 
’ 2126 6 INIT_TEST (); ! INITIALIZATION SUBTEST 
3 2127 4 ENDSUB; 
: 2128 4 
3 ee ; END; 
: « 4 IF BIT_TST (SWP_FLAGS, SWF_DM) ! IF OPERATOR SELECTED DM EXERCISER 
Fy 2ise 3 THEN ! THEN 
3 2133 4 BEGIN 
: 2134 4 
Fy 2135 6 BGNSUB; 
3 2136 6 DM_EXER (); ' RUN DM EXERCISER SUBTEST 
3 2137 4 ENDSUB; 
Fy 2138 4 
Fy 2139 4 END 
Fy 2140 3 ELSE ' OTHERWISE 
8 2141 4 BEGIN 
3 2142 4 
3 2143 6 BGNSUB ; 
3 2144 6 MULTI_DRIVE (); ! RUN MULTI-DRIVE SUBTEST 
Fy 2145 4 ENDSUB; 
’ 2146 4 
3 2147 3 END; 
3 2148 3 
Fy 2149 3 DORPT; ! PRINT STATISTICS 
8 2150 3 EOP_FLAG = TRUE; ! SET END-OF-PASS FLAG 
3 2i5i $ 
Fy 2152 1 ENDTST; 
-TITLE CZRCD3 CZRCDBO RC25 DISK EXERCISER 
-IDENT /V02.0/ 
-ENABL AMA 
000000 -PSECT $GGG$, RO 
000000 COMM.AREA: 
-BLKW 220 
000440 BST: -BLKW 40 
000549 OPST: -BLKW 10 
0005690 ICOM.ADDR: 
-BLKW 1 














000000V 


000000V 
000000V 
000000V 


0C0020 


000001 
000000 
000001 
177777 
000001 
105613 
000001 
031463 
000001 
030221 
000020 
000001 
000003 
000007 
000017 
000037 
000077 
000177 
000377 
000777 
001777 
003777 
007777 
017777 
037777 
077777 
177777 
000020 
177776 
177774 
177770 
177760 


CZRCOBO RC25 DISK EXERCISER 


TEST SECTION 





IENV.ADOR: 
ICST.ADDR 
IOCT.ADOR: 
INT. ADDR: 
WORD 
. WORD 
- WORD 
WORD 
ICTLR: .BLKW 
MX1: -BLKW 
MX2: -BLKW 
MAD1: -BLKW 
MAD2: -BLKW 
VEC.AD: .BLKW 
BRLEVEL: .BLKW 
USIZE: .BLKW 
DOM. TIMR: .BLKW 
SWEEP .FLAG: 
-BLKB 
-EVEN 
ROM. CNT: .WORD 
RANDOM: .BLKW 
PATO2: .WORD 
- WORD 
PATO3: .WORD 
- WORD 
PATO4: .WORD 
- WORD 
PATOS: .WORD 
-WORD 
PATO6: .WORD 
- WORD 
PATO7: .WORD 
«WORD 
- WORD 
- WORD 
- WORD 
- WORD 
«WORD 
- WORD 
-WORD 
«WORD 
- WORD 
. WORD 
- WORD 
- WORD 
- WORD 
- WORD 
- WORD 
PATO8: .WORD 
- WORD 
- WORD 
«WORD 
- WORD 


nc SS SS 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 
1 
1 
1 
RCINTO 
RCINTL 


RCINT2 
RCINT3 


> be pe pe 


RFit rPOornn -§ frre 
oo 


-72165 
1 


VAX-11 Bliss-16 V4.0-579 


SEQ 0210 
USER$1: (AZTEC. CZRCOBICZRCD3.SRC;17 


ge 
(3) 





14 








CZRCO3 
vo2.0 


177740 
177700 
177600 
177400 
177000 
176000 


TEST SECTION 


rr ca 





SEQ 0211 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 age 15 
14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (3) 
WORD -40 
WORD -100 
WORD -200 
WORD -400 
WORD -1000 
WORD -2000 
WORD -4000 
WORD -10000 
WORD -20000 
WORD -40000 
-WORD = -100000 
-WORD O 
PATO9: .WORD 20 
-WORD 0 
-WORD 0 
-WORD 0 
-WORD -1 
-WORD -1 
WORD -1 
-WORD 0 
-WORD O 
-WORD -1 
-WORD -1 
-WORD 0 
-WORD -1 
-WORD 0 
-WORD -1 
-WORD O 
-WORD -1 
PAT1O: .WORD 1 
-WORD -44447 
PAT11: .WORD 20 
-WORD 52525 
WORD 52525 
WORD 52525 
WORD -52526 
WORD -52526 
WORD -52526 
WORD 52525 
WORD 52525 
WORD -52526 
WORD -52526 
WORD 52525 
WORD -52526 
WORD 52525 
WORD -52526 
WORD 52525 
-WORD -52526 
PAT1i2: .WORD 24 
-WORD 26455 
WORD 26455 
WORD 26455 
WORD -26456 
WORD -26456 
WORD -26456 
WORD 26455 
WORD 26455 








CZRCO3 
vo2.0 


001156 


151322 


133331 


TEST SECTION 





SEQ 0212 
Page 16 
(3) 


CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:33:42 USER $1: [AZTEC.CZRCOB ICZRCD3. SRC; 17 
WORD -26456 
WORD -26456 
WORD 26455 
WORD 26455 
WORD -26456 
WORD 26455 
WORD -26456 
WORD 26455 
WORD -26456 
WORD 26455 
WORD -26456 
-WORD 26455 
PATi3: .WORD 1 
-WORD 66666 
PAT14: .WORD 20 
-WORD 1 
-WORD 2 
-WORD 4 
-WORD 10 
WORD 20 
WORD 40 
WORD 100 
WORD 200 
WORD 400 
WORD 1000 
WORD 2000 
WORD 4000 
WORD 10000 
WORD 20000 
WORD 40000 
-WORD -100000 
PATiS: .WORD 0 
-WORD -2 
- WORD -3 
-WORD -5 
-WORD -11 
WORD -21 
-WORD -41 
WORD -101 
WORD -201 
WORD -401 
WORD -1001 
WORD -2001 
WORD -4001 
WORD -10001 
WORD -20001 
WORD -40001 
-WORD 77777 
PAT16: .WORD 20 
«WORD -44447 
WORD -44447 
WORD -44447 
WORD -22224 
WORD -22224 
WORD -22224 - 
WORD -44447 
WORD -44447 








SEQ 0213 


CZRCD3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 17 
vo2.0 TEST SECTION 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB ICZRCD3. SRC; 17 (3) 
001340 155554 -WORD -22224 
001342 155554 -WORD -22224 
001344 133331 -WORD -44447 
001346 155554 -WORD -22224 
001350 133331 ' .WORD -44447 
001352 155554 -WORD -22224 
001354 133331 -WORD -44447 
001356 155554 -WORD -22224 
001360 000025 PAT17: .WORD 25 
001362 000000 -WORD 0 
001364 106466 -WORD -71312 
001366 106466 -WORD -71312 
001370 071311 -WORD 71311 
001372 071311 -WORD 71311 
001374 071311 -WORD 71311 
001376 106466 -WORD -71312 
001400 106466 -WORD -71312 
001402 106466 «WORD -71312 
001404 106466 -WORD -71312 
001406 071311 -WORD 71311 
001410 071311 -WORD 71311 
001412 071311 -WORD 71311 
001414 071311 -WORD 71311 
001416 071311 -WORD 71311 
001420 106466 -WORD -71312 
001422 106466 -WORD -71312 
001424 106466 -WORD -71312 
001426 106466 -WORD -71312 
001430 106466 -WORD -71312 
001432 106466 -WORD -71312 
001434 000025 PAT18: .WORD 25 
001436 106466 «WORD = -71312 
001440 000000 -WORD 0 
001442 071311 -WORD 71311 
001444 106466 -WORD -71312 
001446 106466 -WORD  -71312 
001450 106466 -WORD  -71312 
001452 071311 -WORD 71311 
001454 071311 -WORD 71311 
001456 071311 -WORD 71311 
001460 071311 -WORD 71311 
001462 106466 -WORD = -71312 
001464 106466 -WORD -71312 
001466 106466 -WORD -71312 
001470 106466 -WORD -71312 
001472 106466 -WORD  -71312 
001474 071311 WORD 71311 
001476 071311 WORD 71311 
002500 071311 WORD 71311 
001502 071311 WORD 71311 
001504 071311 WORD 71311 
001506 071311 -WORD 71311 
001510 000025 PAT19: .WORD 25 
001512 000000 -WORD 0 
001514 134631 WORD -43147 
001516 134631 WORD -43147 
001520 043146 WORD 43146 











CZRCDBO RC25 DISK EXERCISER 


TEST SECTION 


PAT20: 


PAT21: 
DPA. TBL:. 


PAT14 
PAT1S 
PAT16 








SEQ 0214 
14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 18 
14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (3) 








CZRCDBO RC25 DISK EXERCISER 
TEST SECTION 


CROMP: 


ooo 


oonooo 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


SEQ 0215 
VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 





Page 19 
(3) 








CZRCDBO RC25 DISK EXERCISER 
TEST SECTION 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


VAX-11 Bliss-16 V4.0-579 


SEQ 0216 
Page 


USER$1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 





20 
(3) 


CZRCO3 
vo2.0 





007000 
104207 


TEST SECTION 


SEQ 0217 





CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Pege 21 
14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (3) 
WORD 27215 
WORD -62400 
WORD 7005 
-WORD -71600 
-WORD 3 
WORD 7005 
WORD 37031 
WORD -64000 
WORD 7005 
WORD 7031 
WORD -73571 
WORD 7002 
-WORD  -73577 
-WORD 2 
WORD 60023 
-WORD -75571 
-WORD 37 
-WORD 57107 
-WORD 0 
WORD -73471 
WORD 7005 
«WORD -73577 
-WORD 5 
WORD 60031 
WORD -73770 
-WORD 7001 
-WORD 0O 
WORD -73471 
WORD 7002 
WORD -72571 
-WORD 60 
WORD -63777 
-WORD -73576 
-WORD 1 
WORD -73575 
WORD 7004 
WORD 60021 
-WORD -75571 
«WORD 37 
WORD 57130 
-WORD 0 
WORD -73471 
WORD 7002 
WORD -63777 
-WORD -73576 
-WORD 32 
WORD -73575 
WORD 7234 
WORD 60020 
WORD -75571 
-WORD 37 
WORD 57146 
-WORD O 
-WORD -73600 
-WORD 4 
WORD 7000 
WORD -73571 








CZRCDBO RC25 DISK EXERCISER 
TEST SECTION 





:21 VAX-11 Bliss-16 V4.0-579 


PATCH, CPT, CST, CST.ADDR, DCT 
DCT.ADOR, RC25.ADDR, IRC25.ADDR 
DM.COMM, DMC.ADDR, RP.SAVE, RPS.X1 
RPS.X2, OUTC.LIST, OUTC.TIMR, OCL.X1 
OCL.X2, TALLY, T.ADDR, MSCP.ENV 
ENV.USE, RETPKT, RP.USE, RP. INDX 
RP.ADDR, BUFF.DESC, BUFF.OWN, I0DQ 
IODQ.IN, I0DQ.0UT, ENTRY.REASON 
T.FLAG, EOP.FLAG, MEM.MGMT, IIP.FLAG 
CCTLR, CPLAT, CUOFF, CTLR.CNT 

DUR, QIO, MEM.SIZE, FREE.MEM.ADOR 
BUFF .SIZE, NUM.BUFF, CLK.TYPE 
CLK.HERTZ, CLK.CSR, CLK.VECTOR 
HOURS, MINUTES, SECONDS, TICKS 
ST.CODE, SB.CODE, STEP, OF .RC 


S 09:41 
5 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 


SEQ 0218 





Page 22 
€3) 





SEQ 0219 
P 23 
vo2.0 TEST SECTION 14-Jun-1985 09:33:42 USER$1:[ AZTEC. CZRCOB JCZRCD3.SRC;17 od (3) 


CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 


-GLOBL SA.REG, NEX, CRN, MSG.02, MSG.03 
-GLOBL MSG.04, MSG.05, MSG.06, MSG.08 
-GLOBL £60.10, EGD.11, EGD.12, EGO.13 
-GLOBL £60.14, EGD.15, EGD.16, EGD.17 
-GLOBL €G0.18, EGD.19, EGD.20, EGD.21 
-GLOBL €GD.22, EGH.30, STC.00, STC.01 
-GLOBL STC.02, STC.03, STC.04, STC.05 


. -CRN, EX.SB 

-GLOBL EX.EL, EX. PA, EX. FMT, EX. EVC, EX.HMA 
-GLOBL €EX.03, SWP. STRACK, SUP .ETRACK 

-GLOBL SWP. FLAGS, SWP.DPAT, SWP.UCNT 

-GLOBL SWP.UDPAT, L$HIMEM, L$UNIT, L$LUN 

-GLOBL NEX.TRAP, COPY.BLK, SET.CPAR, SET.UPAR 
-GLOBL GET.ENV, PUT.ENV, GET. RETPKT, PUT.RETPKT 
-GLOBL GET.I0.BUFF, PUT.I0.BUFF, PUTA.BUFF 
-GLOBL OUT.IODQ, IN. TODQ@, DROP. CTLR, yh CTLERR 
-GLOBL HARD.ERR, UPD.IOC, OVF.CHK, XFR.CHK 

-GLOBL SEND, WAIT, EMS.10, EMS.12, EMS.13 
-GLOBL €EMS.14, EMS.15, EMS.16, EMS.17 

-GLOBL EMS.18, EMS.19, EMS.20, EMS.21 

-GLOBL EMS.22, EMS.30, EMS.42, EMS.43 


100000 BIT15== -100000 


040000 BIT14== 40000 
020000 BIT13== 20000 
010000 BIT12== 10000 
004000 BIT11== 4000 
002000 BIT10== 2000 
001000 BITO9== 1000 
000400 BITO8== 400 
000200 BITO7== 200 
000100 BITO6== 100 
000040 BITOS== 40 
000020 BITO4== 20 
000010 BITO3== 10 
000004 BITO2== 4 
000002 BITO1== 2 
000001 BITOO== 1 
001000 BIT9== 1000 
000400 BIT8== 400 
000200 BIT7== 200 
000100 BIT6== 100 
000040 BITS== 40 
000020 BIT4== 20 
000010 BIT3== 10 
000004 BIT2== 4 
000002 BITi== 2 
000001 BITO== 1 
000040 EF .START== 40 
000037 EF .RESTART== 37 
000036 EF .CONTINUE== 36 
000035 EF .NEW== 35 
000034 EF .PWR== 34 
000340 PRIO7== 340 
000300 PRIO6== 300 


r-— 












SEQ 0220 









CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 24 
vo2.0 TEST SECTION 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 (3) 

000240 PRIOS== 240 

000200 PRIO4== 200 

000140 PRIO3== 140 

000100 PRIO2== 100 

000040 . PRIOis= 40 

000000 PRIOO== ie) 

000004 EVL== 4 


















000010 LOT== 10 
000020 ADR== 20 
000040 IDUs= 40 
000100 ISR== 100 
000200 UAM== 200 
000400 BOE== 400 
001000 PNT== 1000 
002000 PRI== 2000 
004000 IXEss 4000 
010000 IBE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
100000 HOE== -100000 







-SBTTL $T1 TEST SECTION 
000000 -PSECT ‘SCODE$, RO 






000000 105037 0000006 $T1: CLRB EOP .FLAG 

000004 123727 000000G 000005 CMPB ENTRY. REASON, @5 
000012 001406 BEQ es 

000014 104402 1s; TRAP 2 

000016 004737 000000V JSR PC,INIT. TEST 
000022 104467 TRAP 67 

000024 006000 ROR RO 






000072 104424 S$: TRAP 24 
000074 112737 000001 0000006 “OvB 1,E0P .FLAG 
000102 000207 PC 







s Routine Size: 34 words, Routine Bese: sCODE$ + 0000 
s Meximum steck depth per invocetion: 2 words 







-SBTTL Ti TEST SECTION 





_- 


CZRCD3 
vo2.0 


000000 
000000 
000004 
000006 
000010 
000012 


; Routine Size: 





004737 
104466 


006000 
103773 
000207 


SS A a A 





SEQ 0221 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 25 
TEST SECTION 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (3) 
000000‘ Tis: 
1$: JSR PC,$T1 ; 2150 

TRAP 66 

ROR RO 

BLO 1$ 

RTS PC 
6 words, Routine Base: $CODE$ + 0104 


; Maximum stack depth per invocation: 2 words 








a 









SEQ 0222 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 26 
INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (4) 
SSBTTL ‘INITIALIZATION SUBTEST ROUTINES’ 


ROUTINE INIT_TEST : NOVALUE = 


THE INITIALIZATION SUBTEST IS DESIGNED TO VERIFY THE EXISTENCE OF THE 
DEVICES AS CONFIGURED BY THE OPERATOR DURING THE HW DIALOG, AND TO 
BRING EACH DEVICE ONLINE IN PREPARATION FOR EITHER THE MULTI-ORIVE 
SUBTEST OR THE DM EXERCISER SUBTEST. 


BASICALLY, THE DEVICES ARE BROUGHT ONLINE VIA “DRIVER_INIT”, WHICH IS 
INVOKED IMMEDIATELY. ANY DEVICES WHICH FAIL DURING THIS PHASE WILL BE 
MARKED OFFLINE IN THEIR DCT AND CST. FOR THOSE DEVICES WHICH SURVIVE 
THE INITIALIZATION, THIS ROUTINE WILL ATTEMPT 1 OR 2 ACCESS COMMANDS TO 
EACH PLATTER VIA ROUTINE “ACCESS”. THE INITIALIZATION SUBTEST IS DEEMED 
A SUCCESS IF A BLOCK ON THE INNER TRACK OF EACH PLATTER CAN BE 


ACCESSED. 
BEGIN 
IF MANUAL IF ATTENDED 
THEN THEN 


“INIT SUBTEST START” 

SET INIT-IN-PROGRESS FLAG 
INIT DRIVER DATA AND DEVICES 
FOR EACH CONTROLLER 


PRINTF (MSG_04); 

ITIP_FLAG = TRUE; 

DRIVER_INIT (); 

INCR CTLR FROM 0 TO (MAX_CTLR - 1) DO 
BEGIN 


SET_CPAR (.CTLR); 
eps {STATE] EQLU ONLINE 
H 


BEGIN 
vant 7 we FROM (O + OF _UN) TO (3 + OF_UN) DO ! FOR EACH PLATTER 
GIN 


SET UP COMMONLY-USED CONTROLLER-RELATED DATA ITEMS 
papi IS STILL ALIVE 
H 


IF (C.CST_ADOR [.OFFSET, P_PRES] EQLU PRESENT) AND 
. (.CST_ADOR [.OFFSET, P_STAT] EQLU ONLINE)) 
HEN 


FPDP 10 10 OF GE BB UT DDD DUD UU BB U8 8 8 OD 10. 0:10 10: G0 ee ee ee pe ee pe he ee pe pe pe pe pe 


BEGIN 
access (0 t TRY ACCESS TO INNER TRACK) 
END; ! IF UNIT IS PRESENT AND ONLINE 
END; ! UNIT LOOP 
END; ! IF CONTROLLER IS ONLINE 
END; ! CONTROLLER LOOP 
IIP_FLAG = FALSE; ! CLEAR INIT-IN-PROGRESS FLAG 
END; ! ROUTINE INIT_TEST 








eee een ee 









SEQ 0223 
CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 2 
vo2.0 INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: ([AZTEC.CZRCDB JCZRCD3.SRC;17 (4) 


-SBTTL INIT.TEST INITIALIZATION SUBTEST ROUTINES 


000000 004137 000000G INIT. TEST: 
JSR R1, $SAVE2 3 
000004 104450 TRAP 50 ; 
000006 103007 BHIS i$ 
000010 012746 0000006 MOV @MSG.04, -( SP) 3 
000014 012746 000001 MOV #1,-(SP) 
000020 010600 MOV SP ,RO ; SP,«* 
000022 104417 TRAP 17 
000024 022626 CMP (SP)+,(SP)+ 
000026 112737 000001 000000G i$: MOVB #1,IIP.FLAG 3 
000034 004737 000000V JSR PC ,ORIVER. INIT 3 
000040 005002 CLR R2 ; CTLR 
000042 010246 2$: MOV R2,-C(SP) ; CTLR,«# 
000044 004737 0000006 JSR PC,SET.CPAR 
000050 013700 000000G MOV CST. ADDR ,RO 3 
000054 005760 000002 TST 2CRO) 
000060 100025 BPL S$ 
000062 012701 000003 MOV #3,R1 ; *, OFFSET 
000066 010100 3$: MOV R1,RO ; OFFSET,« 
000070 006300 ASL RO 
000072 0€3700 000000G ADD CST.ADOR ,RO 
000076 032710 040000 BIT #40000, (RO) 
000102 001410 BEQ 4$ 
000104 032710 020000 BIT #20000, (RO) $ 
000110 001405 BEQ 4$ 
000112 010116 MOV R1,(SP) ; OFFSET,« 
000114 004737 000000G JSR PC ,SET.UPAR 
000120 004737 000000V JSR PC,.ACCESS 3 
000124 005201 4$: INC Ri : OFFSET 
000126 020127 000006 CMP R1,%6 ; OFFSET,« 
000132 003755 BLE 3$ 
000134 005726 5$: TST (SP)+ 8 
000136 005202 INC R2 ; CTLR 
000140 020227 000003 CMP R2,43 ; CTLR,«# 
000144 003736 BLE 2s 
000146 105037 090000G CLRB IIP.FLAG 3 
000152 000207 RTS PC ; 
; Routine Size: 54 words, Routine Base: $CODE$ + 0120 


; Maximum stack depth per invocation: 7 words 








—_— rr ee 










SEQ 0224 
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2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 


eS SSS SSIES ASSO ERS ESSSCESSCSHEBEOSDSHSHEEHOHO OS OES 
~ 
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ROUTINE DRIVER_INIT : NOVALUE = 


‘ THIS ROUTINE IS EQUIVALENT IN FUNCTION TO THE INITIALIZATION ENTRY 
2 POINT OF A STANDARD DEVICE DRIVER. ITS RESPONSIBILITY IS TO INITIALIZE 
g DRIVER DATA, AND TO BRING EACH RC25 CONTROLLER AND UNIT ONLINE. 


BEGIN 


LOCAL 
ENV_ADDR; 


ENV_ADDR = MSCP_ENV + 8; 
INCR COUNT FROM 0 TO CENV_CNT - 1) DO 
BEGIN 


ENV_USE [.COUNT] = -1; 

MSCP_ENV [.COUNT, ENV_LO) = .ENV_ADDR; 
MSCP_ENV [.COUNT, ENV_HI] = 0; 
MSCP_ENV [.COUNT, ENV_F] = 1; 
MSCP_ENV [.COUNT, ENV_O) = 1; 

ENV_ADDR = .ENV_ADDR + CENV_LEN « 2); 


END; 


INCR CTLR FROM O TO (MAX_CTLR - 1) DO 
BEGIN 


IF .CST (.CTLR, IP_ADDR] NEQA 0 
THEN 
BEGIN 


SET_CPAR (.CTLR); 
VEC_AD = .CST_ADDR [VEC_ADDR); 
BRLEVEL = .CST_ADDR [BR_LEV] + 5; 
CTLR_INIT (); 
IF .OCT_ADDR [STAT] EQLU ONLINE 
THEN 

BEGIN 


ADOR (TEXT + 0) OF FIRST MSCP ENVELOPE 
FOR EACH MSCP ENVELOPE 


MARK ENVELOPE FREE 
LOAD ENVELOPE ADDR INTO ENV DESCRIPTOR 


SET FLAG BIT 
SET OWNERSHIP BIT 
ADVANCE ADDR TO NEXT ENVELOPE 


FOR EACH CONTROLLER 


IF CONTROLLER IS PRESENT 
THEN 


SET UP CURRENT CONTROLLER PARAMETERS 
SET CURRENT CONTROLLER'S VECTOR ADDRESS 
SET CURRENT CONTROLLER'S BR LEVEL 

INIT DEVICE AND CTLR DATA 
ne IS STILL ALIVE 


vane ye) FROM (O + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT (PLATTER) 
N 


IF _.CST_ADDR [.OFFSET, P_PRES] EQLU PRESENT ! IF UNIT EXISTS 
THEN ! THEN 


BEGIN 


SET_UPAR (.OFFSET); 
UNIT_INIT (); 


END; 
END; 
END; 


! BRING UNIT ONLINE 
! IF UNIT EXISTS 
! UNIT LOOP 
IF CONTROLLER IS STILL ALIVE 





SET UP UNIT-RELATED DATA ITEMS 
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43 : END; ! IF CONTROLLER IS PRESENT 

2268 2 END; ! CONTROLLER LOOP 

2269 2 

2270 1 END; ! ROUTINE DRIVER_INIT 

-SBTTL ORIVER.INIT INITIALIZATION SUBTEST ROUTINES 
000000 004137 0000006 DRIVER .INIT: 
JSR R1, $SAVE2 ; 2209 

000004 012702 000010G MOV @MSCP.ENV+10,R2 ; *,ENV.ADOR 2222 
000010 005001 CLR Ri 3 COUNT 2223 
000012 112761 000377 0000006 1$: MOVB #377 ,ENV.USECR1) s *,*(COUNT) 2226 
000020 010146 MOV R1,-(SP) ; COUNT, «# 2227 
000022 012746 000104 MOV #104 ,-(SP) 
000026 004737 000000G JSR PC ,BL$MUL 
000032 010260 000000G MOV R2 ,MSCP.ENVCRO) ; ENV.ADOR,« 
000036 062700 000002G ADD @MSCP.ENV+2,RO0 ; 2228 
000042 005010 CLR CRO) 
000044 052710 140000 BIS #140000, (RO) ; 2230 
000050 062702 000104 ADD #104 ,R2 + *,ENV.ADOR 2231 
000054 022626 CMP (SP)+,(SP)+ ; 
000056 005201 INC R1 3 COUNT 
000060 020127 000137 CMP R1,#137 ; COUNT,«* 
000064 603752 BLE 1$ 
000066 005002 CLR R2 ; CTLR 
000070 010246 2$: MOV R2,-CSP) ; CTLR,* 
000072 012746 000016 MOV #16, -CSP) 
000076 004737 000000G JSR PC ,BL$MUL 
000102 022626 CMP (SP)+,(SP)+ 
000104 005760 000000G TST CSTCRO) 
000110 001454 BEQ 6$ 
000112 010246 MOV R2,-(SP) ; CTLR,* 
000114 004737 000000G JSR PC,SET.CPAR 
000120 013700 000000G MOV CST. ADDR ,RO ; 
000124 016037 000002 000612’ MOV 2(RO), VEC. AD 
000132 042737 177000 000612’ BIC #177000, VEC. AD 
000140 005016 CLR (SP) ; 
000142 116016 000004 MOVB 4(RO), (SP) 
000146 012746 000005 MOV #5,-(SP) 
000152 004737 0000006 JSR PC,.BL$SHF 
000156 010037 000614’ MOV RO,BRLEVEL 
000162 004737 000000V JSR PC,CTLR. INIT ; 
000166 005777 000000G TST @D0CT.ADDR ; 
000172 100022 BPL 5$ 
000174 012701 000003 MOV #3,R1 ; *,OFFSET 
000200 010100 3$: MOV R1,RO ; OFFSET,«# 
000202 006300 ASL RO 
000204 063700 000000G ADD CST. ADDR ,RO 
000210 032710 040000 BIT #40000, (RO) 
000214 001405 BEQ 4$ 
000216 010116 MOV R1,(SP) ; OFFSET,«# 
000220 004737 000000G JSR PC,SET.UPAR 
000224 004737 000000V JSR PC,UNIT. INIT ; 
000230 005201 4$: INC Ri ; OFFSET 
000232 020127 000006 CMP R1,#6 ; OFFSET,« 
000236 003760 BLE 3$ 








CZRCO3 
vo2.0 


; Routine Size: 





SEQ 0226 
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5$: CMP CSP)+,(SP)+ 3 2240 
6$: INC R2 ; CTLR 2235 
000003 CMP R2,#3 ; CTLR,«# 
BLE 23 
RTS PC PF 2209 
86 words, Routine Base: $CODE$ + 0274 


; Maximum stack depth per invocation: 6 words 
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ROUTINE CTLR_INIT : NOVALUE = 


a 


THIS “DRIVER” ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONTROLLER 
CONFIGURED FOR TESTING. ITS GENERAL PURPOSE IS TO BRING THE RC25 ONLINE 
TO THE HOST. SPECIFICALLY, IT IS WRITTEN TO: 


1. INITIALIZE DRIVER CONTROLLER DATA, INCLUDING THE DCT, 

2. SET UP THE DEVICE‘S INTERRUPT VECTOR ADDRESS, (NOTE THAT RC2S 
INTERRUPT PROCESSING RUNS AT LEVEL 5 FOR ALL RC25‘S. THIS IS 
BASED ON THE ASSUMPTION THAT ALL RC25’S WILL HAVE A FIXED BR 
LEVEL OF S OR LESS. INTERRUPT PROCESSING CANNOT BE BROKEN WITH 
A HIGHER PRIORITY INTERRUPT FROM ANOTHER RC2S5. ) 

3. PERFORM A REGISTER EXISTENCE TEST TO VERIFY THE DEVICE'S PRESENCE, 

4. PERFORM A VECTOR AND BR LEVEL TEST TO VERIFY THE DEVICE’S VECTOR 
ADDRESS AND INTERRUPT REQUEST LEVEL, 

5S. DO A HARD INITIALIZATION (FOUR STEPS) ON THE DEVICE. 


IF ANY OF THESE INITIAL TESTS FAIL, THEN ALL UNITS ASSOCIATED WITH THE 
DEVICE ARE DROPPED. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER’S DCT 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 
RC25_ADDR - ADDRESS OF CURRENT CONTROLLER’S IP REGISTER 


BEGIN 


CAL 
RESULT : WORD; 
INI_CTLR_DAT (); 
SETVEC (.VEC_AD, .INT_ADDR [.CCTLR], PRIOS); 
DCT_ADDR [IG_INT] = YES; 
L$LUN = .CST_ADDR [OF_UN, P_UNIT]); 
IF REG_EXIST () EQLU FAILURE 
THEN 
BEGIN 


DROP _CTLR (.CCTLR, DU_INIT); 
RETURN; 


END; 
IF VEC_BR_TEST €) EQLU FAILURE 
THEN 

BEGIN 


DROP_CTLR (.CCTLR, OU_INIT); 
RETURN; 


END; 


INITIALIZE CONTROLLER DATA 

SET DEVICE’S ASSUMED VECTOR ADDRESS 
SET “IGNORE INTERRUPT” BIT 

GET FIRST UNIT NUMBER OF CONTROLLER 
CUSED BY DRS FOR ERROR REPORTING) 
—- EXISTENCE TEST. IF FAILURE 
H 


DROP ALL CONTROLLER'S UNITS 


— ADDR AND BR LEVEL TEST. IF FAILURE 


DROP ALL CONTROLLER’S UNITS 
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2328 RESULT = HARD_INIT (); ! ATTEMPT HARD DEVICE INIT 
2329 DCT_ADDR [IG_INT] = NO; ! CLEAR “IGNORE INTERRUPT” BIT 
2330 IF .RESULT E@LU SUCCESS ! IF HARD INIT WAS SUCCESSFUL 
2331 THEN ! THEN 


BEGIN 


DCT_ADOR [STAT] = ONLINE; 
CST_ADOR [STATE] = ONLINE; 
INI_RRING (); 

WRT_RC25 CRCSA, RC_ALL, SA_GO); 
SET_CTLR_CHAR (); 


MARK CONTROLLER ONLINE IN “DRIVER” 
MARK CONTROLLER ONLINE IN “PROGRAM” 
INITIALIZE RESPONSE RING 
SET “GO” BIT (START CTLR POLLING) 
SET CONTROLLER CHARACTERISTICS 


LS) 
4 
FPN WAWWWWWWw wwf ff 


2339 

2340 END 

2341 

2342 SE ! HARD INIT FAILED 

es DROP _CTLR €.CCTLR, DU_INIT); ! DROP ALL CONTROLLER'S UNITS 

2345 END; ! ROUTINE CTLR_INIT 

-SBTTL CTLR.INIT INITIALIZATION SUBTEST ROUTINES 
010146 CTLR.INIT: 
MOV R1,-CSP> ; 

004737 000000V JSR PC, INI.CTLR.DAT ; 
012746 000240 MOV #240,-(SP) ; 
013700 0000006 MOV CCTLR,RO 
006300 ASL RO 
016046 000570‘ MOV INT. ADDRCRO),-(SP) 
013746 000612’ MOV VEC.AD,-(SP) 
012746 000003 MOV #3,-CSP) 
104437 TRAP 37 
052777 040000 0000006 BIS #40000 , DCT. ADDR ; 
013700 0000006 MOV CST.ADOR ,RO ; 
016001 000006 MOV 6C(RO),R1 
000301 SWAB R1 
042701 177740 BIC #177740,R1 
010137 000000G MOV R1,L$LUN 
004737 000000V JSR PC ,REG.EXIST i 
005700 TST RO 
001404 BEQ 1$ ; 
004737 000000V JSR PC, VEC .BR. TEST ; 
005700 TST RO 
001011 BNE 2$ 
013716 000000G 1$; MOV CCTLR, (SP) ; 
012746 000002 MOV #2,-(SP) 
004737 000000G JSR PC ,DROP.CTLR 
062706 000012 ADD #12,SP ; 
000444 BR S$ : 
004737 000000V 2s: JSR PC HARD. INIT ; 
042777 040000 0000006 BIC #40000, @DCT. ADDR ; 
020027 000001 CMP RO, #1 ; RESULT,«* 
001023 BNE 3$ 
052777 100000 000000G BIS #100000, SDCT.ADOR ; 
013700 000000G MOV CST. ADDR ,RO ; 
052760 100000 000002 BIS #100000, 2(RO) 
004737 000000V JSR PC, INI .RRING ; 
012701 000001 MOV #1,R1 ; *,RC.REG 











; Routine Size: 
s Maximum stack depth per invocation: 7 words 





CZRCDBO RC25 DISK EXERCISER 


INITIALIZATION SUBTEST ROUTINES 


000000G 
000002 
000000V 
3$: 
000002 
000000G 
000010 4$: 
5$: 
82 words, Routine Base: 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


MOV RC25 . ADDR, RO 
MOV R1,2(RO) 

JSR Pr ,SET.CTLR. CHAR 
BR 4$ 

MOV CCTLR, (SP) 
MOV #2,-(SP) 

JSR PC ,DROP.CTLR 
TST (SP)-+ 

ADD #10,SP 

MOV (SP)+,R1 

RTS PC 

$CODE$ + 0550 


VAX-11 Bliss-16 V4.0-579 


RC.REG,*# 


SEQ 0229 
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004137 


013701 
005301 
000407 
112761 
010100 
006300 
005060 
005201 
020137 
003765 
013701 
005011 
012702 
060102 
013746 
012746 
004737 
062700 
010012 
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CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41: age 34 
33:42 USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (7) 


INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09: 
ROUTINE INI_CTLR_DAT : NOVALUE = 


+ 


THIS ROUTINE IS RESPONSIBLE FOR INITIALIZING ALL CONTROLLER-RELATED 
DATA IN THE “DRIVER” PORTION OF THE EXERCISER. THIS INCLUDES THE 
CONTROLLER‘S DCT AND OUTSTANDING COMMAND LIST. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER’S DCT 
OCL_X1, OCL_X2 - STARTING AND ENDING INDECES OF CURRENT 
CONTROLLER’S OUTSTANDING COMMAND AREA 


BEGIN 
INCR INDEX FROM .OCL_X1 TO .OCL_x2 DO 
BEGIN 


OUTC_LIST [.INDEX]) = -1; ! INIT OUTSTANDING CMD LIST 
OUTC_TIMR [.INDEX] = 0; ! ZERO OUT OUTSTANDING CMD TIMERS 
END; 
DCT_ADDR [WORDO) = 0; ' CLEAR FIRST DCT WORD 
DCT_ADDR (RR_BEG] = COMM_AREA + 8 + (.CCTLR * COMM_LEN « 2); ! START OF RESPONSE RING 
DCT_ADDR [RR_END] = .DCT_ADDR [RR_BEG] + ((RRING_LEN - 1) * 4); ! LAST SLOT IN RESPONSE RING 
DCT_ADOR [CR_BEG) = .DCT_ADDR [RR_END] + 4; ! START OF COMMAND RING 
DCT_ADDR [CR_END] = .DCT_ADDR [CR_BEG) + ((CRING_LEN - 1) * 4); ! LAST SLOT IN COMMAND RING 
DCT_ADDR [RR_POLL] = .DCT_ADDR [RR_BEG); ! FIRST RRING SLOT TO POLL 
DCT_ADOR [CR_POLL] = DCT_ADDR [CR_NEXT] = .DCT_ADDR [CR_BEG); ! CRING POLL AND NEXT COMMAND POINTERS 
END; 
-SBTTL INI.CTLR.DAT INITIALIZATION SUBTEST ROUTINES 
000000G INI.CTLR.DAT: 
JSR R1, $SAVE2 3 2346 
000000G MOV OCL.X1,R1 ; *, INDEX 2362 
y -~ ; INDEX 
000377 000000G 1$: MOVB #377 ,OUTC.LISTCR1i) ; *,*C INDEX) 
MOV R1,RO ; INDEX,* 
ASL RO 
000000G CLR OUTC.TIMRCRO) 
2s: INC R1 ; INDEX 
000000G CMP R1,0CL.x2 :; INDEX,* 
BLE 1$ 
000000G MOV DCT. ADDR ,R1i 3 
CLR (R1) 
000004 MOV #4,R2 ; 
ADD R1,R2 
000000G MOV CCTLR, -(SP) 
000110 MOV #110,-CSP) 
000000G JSR PC ,BL$MUL 
000010' ADD #COMM. AREA+10,RO 


MOV RO,CR2) 















SEQ 0231 
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000100 010061 000006 MOV RO,6(R1) 3 2372 
000104 062761 000034 000006 ADD #34,6(R1) 

000112 012700 000010 5 MOV #10,R0 3 2373 
000116 060100 ADD R1,RO 

000120 016110 000006 MOV 6C(R1), CRO) 

000124 062710 000004 ADD @4,(RO) 

000130 011061 000012 MOV CRO), 12CR1) 3 2374 
000134 062761 000034 000012 ADD #34,12(R1) 

000142 011261 000014 MOV (R2),14(R1) 8 2375 
000146 011061 000020 MOV CRO) ,20(€R1) 3 2376 
000152 011061 000016 MOV CRO), 16(R1) 

000156 022626 cmp (SP)+,CSP)+ $ 2360 
000160 000207 RTS PC 3 2346 
; Routine Size: 57 words, Routine Base: $CODE$ + 1014 


; Maximum stack depth per invocation: 6 words 
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2379 ROUTINE REG_EXIST = 
2380 
2381 te 
2382 : THIS IS THE REGISTER EXISTENCE (OR “PROBE”) TEST DESIGNED TO VERIFY 
2383 ' THE PRESENCE OF AN RC25 DEVICE. THIS OBJECTIVE IS ACCOMPLISHED BY 
2384 ! SETTING UP THE NON-EXISTENT MEMORY (NEX) TRAP VECTOR (LOCATION 4) AND 
2385 ' ATTEMPTING TO READ WHAT IS ASSUMED TO BE THE DEVICE’S SA AND IP 
2386 ! REGISTERS. IF THE NEX TRAP HANDLER IS INVOKED DUE TO AN ABSENT DEVICE, 
2387 ' THEN THE GLOBAL DATUM “NEX” WILL BE SET TO “TRUE”. THIS DATUM 
2388 ! DETERMINES THE SUCCESS / FAILURE VALUE OF THIS ROUTINE. 

# 
2390 ! IMPLICIT INPUTS: 
2391 ! RC25_ADDR - ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 

'. 
2393 
2394 BEGIN 
2395 
2396 LOCAL 
2397 TEMP : WORD, ! TEMP FOR READING SA AND IP 
2398 DUMMY : WORD; ! AS THE NAME IMPLIES 
2400 OF _RC = 2; ! SET UP TO READ SA FIRST 
2401 DO 
2402 BEGIN 
2403 

NEX = FALSE; SET TO “TRAP NOT RECEIVED” 


SETVEC (4, NEX_TRAP, PRIO7); SET LOCATION 4 TRAP VECTOR ADDRESS 


TEMP = .(.RC25_ADDR + .OF_RC); READ REGISTER (THEN TRAP OR CONTINUE) 


'w 
2 
PPO MOTO 10 C8 G8 1 OE BB BB BB G8 G8 68 68 G8 68 G8 68 68 8 010 10.10. 10 10:10 10 ee ee ee ee ee ee 





! 
¢ 
7 
2407 DUMMY = 0; ! DUMMY INSTRUCTION TO COVER TRAP RETURN BUG 
2408 H CTRAP RETURNS TO NEXT INSTRUCTION) 
2409 CLRVEC (4); ! CLEAR LOCATION 4 TRAP VECTOR ADDRESS 
2410 IF .NEX EQLU TRUE ! IF NEX TRAP OCCURRED 
2411 THEN ! THEN 
3 BEGIN 
2414 ERRDF (10, EGD_10, EMS_10); ! “REGISTER EXISTENCE TEST FAILED” 
2415 RETURN FAILURE; 
2416 
2417 EN 
2418 ELSE 
2419 OF _RC = .OF_RC - 2; ! SET UP FOR IP REG OR QUIT 
2420 
2421 END 
2422 
2423 UNTIL .OF_RC LSS 0; 
2424 
2425 RETURN SUCCESS; 
2426 
END; 
- 58 REG.EXIST INITIALIZATION SUBTEST ROUTINES 
004137 000000G REG. EXIST: 
JSR R1, $SAVE2 | : 
012737 000002 000000G MOV #2 ,0F .RC H 
005037 000000G i$: CLR NEX ; 
012746 000340 MOV #340,-(SP) 3 








CZRCDBO RC25 DISK EXERCISER 
vo2.0 INITIALIZATION SUBTEST ROUTINES 


000022 012746 0000006 
000026 012746 000004 
000032 012746 000003 
000040 013700 0000006 
000044 063700 0000006 
000054 012700 000004 


023727 0000006 000001 


000102 062706 000010 
000110 162737 000002 0000006 2s: 
000116 062706 000010 
000122 005737 0000006 
000130 012700 000001 


000136 005000 3%: 


3: Meximum stack depth per invocation: 9 words 


ADD #10, SP 3 
BR 3$ i 
SUB #2 ,0F .RC F 
ADD #10,SP ; 
TST OF .RC H 
BGE 1$ 


; Routine Size: 49 words, Routine Base: ‘$CODE$ + 1176 









SEQ 0233 
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MOV @NEX. TRAP, -(SP) 

MOV 04,-(SP) 

MOV @3,-(SP) 

TRAP 37 

MOV RC25. ADDR, RO F 2406 

ADD OF .RC,RO 

MOV CRO),R1 3: *, TEMP 

CLR R2 3 DUMMY 

MOV #4,RO0 3 

TRAP 36 

CMP lege F 
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CZRCDBO RC25 DISK EXERCISER 
INITIALIZATION SUBTEST ROUTINES 





ROUTINE VEC_BR_TEST = 


oe 


eee nL a a ae 


BEGIN 


IF MANUAL 


PRINTF (MSG_02, .VEC_AD, .RC25_ADDR) 
IF INT_GEN () EQLU FALSE 


THEN 


THEN 


THIS ROUTINE ATTEMPTS TO VERIFY (A) THAT THE RC25 VECTOR ADDRESS GIVEN 
BY THE USER DURING THE HW DIALOG IS VALID, AND (B) THAT THE 
USER-SPECIFIED BUS REQUEST LEVEL FOR THE DEVICE IS CORRECT. THE FIRST 
OBJECTIVE IS ACCOMPLISHED BY SETTING THE CPU PRIORITY TO 0 AND FORCING 
AN RC2S INTERRUPT. IF THE USER SPECIFIED AN INCORRECT VECTOR ADDRESS, 
THEN THE RESULT MAY BE UNPREDICTABLE. FOR THIS REASON, THE MESSAGE 
“ABOUT TO VERIFY VECTOR XXX(0) FOR DEVICE XXXXXX(0) ...” IS PRINTED 
BEFORE THE TEST, AND “COMPLETED” IS PRINTED AT ITS SUCCESSFUL 
CONCLUSION. IF THE WORD “COMPLETED” DOES NOT APPEAR, AND AN ERROR IS 
NOT REPORTED, THEN PROGRAM CONTROL IS ASSUMED LOST AND A FATAL TRAP HAS 
LIKELY OCCURRED. AT THIS POINT, THE EXERCISER MUST BE STARTED AGAIN. 


IF THIS TEST SUCCEEDS, THEN THE BR LEVEL TEST IS RUN BY SETTING THE 
PROCESSOR PRIORITY TO THE ASSUMED INTERRUPT PRIORITY GIVEN BY THE 
USER. A FORCED INTERRUPT SHOULD NOT OCCUR. THEN, BY LOWERING THE 
PRIORITY BY ONE, THE DELAYED INTERRUPT SHOULD OCCUR. 

RC25_ADDR - ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 


IMPLICIT INPUTS: 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER’S DCT 
RC25_ADDR - ADDRESS OF CURRENT CONTROLLER’S IP REGISTER 
VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
BRLEVEL - ne SS eee INTERRUPT LEVEL OF THE CURRENT 
L 


IF ATTENDED 
THEN 


! “ABOUT TO VERIFY VECTOR...” 
FORCE AN INTERRUPT 
IF INTERRUPT DID NOT OCCUR 


BEGIN 


ERRDF (11, EGD_11, 0); 


“VECTOR TEST FAILED” 


RETURN FAILURE; 


END 
ELSE ! INTERRUPT DID OCCUR 
BEGIN 
IF MANUAL IF ATTENDED 
THEN THEN 
PRINTF (MSG_03); “COMPLETED.” 


SETPRI ( .BRLEVEL); 
IF INT_GEN () EQLU FALSE 


THEN IF INTERRUPT DID NOT OCCUR 
BEGIN 
SETPRI (.BRLEVEL - #0'40'); ! LOWER PRIORITY BY 1 
DELAY (1); ! WAIT 
eo (SA_SAVE] NEQUO }! etme: DID OCCUR (SA_SAVE WOULD BE NON-ZERO) 
HEN ! TH 





SET PRIORITY TO ASSUMED BR LEVEL 
FORCE AN INTERRUPT (SHOULD NOT OCCUR) 


14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 


OT SS 








SEQ 0235 

CZRCD3 CZRCDOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 39 
vo02.0 INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 (9) 
F 2485 5 BEGIN 
Fy 2486 5 
3 2487 5 SETPRI (PRIOO); ! RESTORE PROCESSOR PRIORITY TO 0 
3 2488 5 RETURN SUCCESS; ! ONLY SUCCESSFUL EXIT POINT 
: 2489 5 
: 2490 4 END; 
Fy 2491 4 
8 2492 3 END; 
8 2493 3 
8 2494 2 END; 
Fy 2495 2 
Fy 249% 2 SETPRI (PRIOO); ! COME HERE ONLY FOR BR TEST FAILURE 
’ 2497 2 ERRDF (12, EGD_12, EMS_12); ! “BR LEVEL TEST FAILED” 
8 2498 2 RETURN FAILURE; 
8 2499 2 
3 2500 1 END; 

-GLOBL LSDLY 

-SBTTL VEC.BR.TEST INITIALIZATION SUBTEST ROUTINES 
000000 010146 VEC.BR.TEST: 

MOV R1,-CSP) 3 2428 
000002 005746 TST -(SP) 
000004 104450 TRAP 50 : 
000006 103014 BHIS i$ 
000010 013746 000000G MOV RC25.ADDR, -( SP) 3 
000014 013746 000612’ MOV VEC.AD,-(SP) 
000020 012746 000000G MOV #MSG .02, -( SP) 
009024 012746 000003 MOV #3,-(SP) 
000030 010600 MOV SP RO ; SP,«# 
000032 104417 TRAP 17 
000034 062706 000010 ADD #10,SP 
000040 004737 000000V 1$: JSR PC, INT.GEN 3 
000044 005700 TST RO 
000046 001005 BNE 2s 
000050 104455 TRAP 55 : 
000052 000013 -WORD 13 
000054 0000006 -WORD €EGD.11 
000056 000000 -WORD 0O 
000060 000460 BR 9$ ; 
000062 104450 2$: TRAP 50 3 
006064 103007 BHIS 3$ 
000066 012746 000000G MOV #MSG .03,-( SP) F 
000072 012746 000001 MOV #1,-(SP) 
000076 010600 MOV SP ,RO : SP,* 
000100 104417 TRAP 17 
000102 022626 CMP (SP)+,(SP)-+ 
000104 013700 000614’ 3$: MOV BRLEVEL ,RO 3 
000110 104441 TRAP 41 
000112 004737 000000V JSR PC, INT.GEN 3 
000116 005700 TST RO 
000120 001032 BNE 8$ 
000122 013700 000614' MOV BRLEVEL ,RO 8 
000126 162700 000040 SUB #40,R0 
000172 104441 TRAP 41 





ce 
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000134 012701 000001 MOV 41,Ri 3s *,$$TMP2 2482 
000140 091410 4$: BEQ 7$ 
000142 013700 000000G MOV LSDLY,RO 3s *,$$TMPL 
000146 001403 BEQ 6$ 
000150 005016 S$: CLR (SP) ; $$TMP 
000152 005300 DEC RO 3; $$TMPL 
000154 001375 BNE 5$ 
000156 005301 6$: DEC Ri ; $$TMP2 
000160 000767 BR 4$ 
000162 013700 000000G 7$: MOV DCT. ADDR ,RO 3 
000166 005760 000002 TST 2CRO) 
000172 001405 BEQ 8$ 
000174 005000 CLR RO ; 
000176 104441 TRAP 41 
000200 012700 000001 MOV #1,RO0 3 
000204 000407 BR 10$ 
000206 005000 8$: CLR RO : 
000210 104441 TRAP 41 
000212 104455 TRAP 55 : 
000214 000014 WORD 14 
000216 000000G WORD €GD.12 
000220 000000G -WORD €EMS.12 
000222 005000 9$: CLR RO 3 
000224 0C5726 10$: TST (SP)-+ 
000226 012601 MOV (SP)+,R1 
000230 000207 RTS 
; Routine Size: 77 words, Routine Base: $CODE$ + 1340 


; Maximum stack depth per invocation: 8 words 

















SEQ 0237 


IF came [SA_SAVE) EQLU 0 hy SAVE WORD WAS NOT TOUCHED 


CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 41 
vo2.0 INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (10) 
s 2501 1 ROUTINE INT_GEN = 
s Be i 
s #03 i te 
; 2504 1 : THIS ROUTINE BEGINS AN RC25 INITIALIZATION SEQUENCE, BUT ONLY 
: 2505 1 H COMPLETES THROUGH THE STEP 1 WRITE. ITS PURPOSE IS TO CREATE AN RC25 
; 2506 1 : INTERRUPT CAT THE COMPLETION OF STEP 1) IN ORDER TO HELP VERIFY THE 
s 2507 i : THE USER-SPECIFIED VECTOR ADDRESS AND BUS REQUEST INTERRUPT LEVEL. 
; 2508 1 H A VALUE OF “TRUE” IS RETURNED TO THE CALLER IF AN INTERRUPT OCCURS, 
s 2509 1 H AND “FALSE” OTHERWISE. THE INTERRUPT IS VERIFIED BY A NON-ZERO VALUE 
H aaae : : IN THE “SA SAVE” WORD IN THE DEVICE'S DCT. 
é 3 
s 2512 1 H IMPLICIT INPUTS: 
s #13 1 H DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT 
$ oe 1 : RC25_ADDR - ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 
3 3 61 $- 
s 2516 1 
5. 2ine BEGIN 
s 2518 2 
s #8 @ LOCAL 
; 2520 2 IE_VEC : WORD, ! IE-BIT-AND-VECTOR-ADDRESS/4 BYTE 
3 coe : SA : WORD; ! STORAGE FOR STEP 1 READ AND WRITE 
s. goes @ DCT_ADDR [SA_SAVE] = 0; ! ZERO OUT SA SAVE WORD IN DCT 
; 2524 2 IE_VEC = (.VEC_AD t -2) OR SA_INT; ! VEC ADDR / 4 WITH IE = 1 
s 225 2 WRT_RC25 CRCIP, RC_ALL, ALL_ONES); ! WRITE IP TO START INIT SEQUENCE 
s 2526 2 DELAY (625); ! WAIT Changed from S00 to 625 for 84 cache 
s 227 2 SA = .RC25_ADDR [RCSA, RC_ALL]; ! STEP 1 READ 
s 2528 2 SA = (WR_RING ¢ 8) OR .IE_VEC; ! STEP 1 WRITE VALUE 
; Bee @€ WRT_RC25 CRCSA, RC_ALL, .SA); ' STEP 1 WRITE 
s 2530 2 INCR COUNT FROM 1 TO 10 DO ! TEN SECOND LIMIT 
s Bw 8s BEGIN 
s 2532 3 
s 233 3 DELAY (400); ! ABOUT 1 SECOND Changed 333 to 400 for 84 
; 2534 3 SA = .RC25_ADDR [RCSA, RC_ALL]; ! READ SA REGISTER 
; 2535 4 IF BIT_TST (SA, SA_S2) ! IF STEP 2 HAS BEGUN 
s 2% 3 HEN ! THEN 
s 2537 3 EXITLOOP; ! BREAK OUT 
s 2538 $ 
s 2539 2 END; 
3 2 
3 2 H 
; 2542 2 THE ! 
; 2543 2 RETURN FALSE ! INTERRUPT DID NOT OCCUR 
; 2544 2 ! OTHERWISE 
s 2545 2 RETURN TRUE; ! INTERRUPT DID OCCUR 
; 2546 2 
s 2547 1 END; 
-SBTTL INT.GEN INITIALIZATION SUBTEST ROUTINES 
000000 004137 000000G INT.GEN: JSR R1, $SAVES ; 
000004 162706 000006 SUB #6 ,SP 
000010 013704 000000G MOV DCT. ADDR ,R4 ; 
000014 005064 000002 CLR 2(R4) 
000020 013700 000612’ MOV VEC.AD,RO ; 
000024 006200 ASR RO 
000026 006200 ASR RO 
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000030 010003 MOV RO,R3 ; *,IE.VEC 

000032 052703 000200 BIS #200 ,R3 ; *,IE.VEC 

000036 0612700 177777 MOV #-1,RO0 ; *,RC.REG 2525 
000042 010077 000000G MOV RO,9RC25. ADDR : RC.REG,* 

000046 012701 001161 MOV #1161,R1 ; *,$$TMP2 2526 
000052 001411 1$: BEQ 4$ 

000054 013700 000000G MOV LS$DLY,RO 3s *,$$TMPL 

000060 001404 BEQ 3$ 

000062 005066 000004 2s: CLR 4(SP) : $$TMP 

000066 005300 DEC RO ; $$TMPL 

000070 001374 BNE 2s 

000072 005301 3$: DEC R1 : $$TMP2 

000074 000766 BR i$ 

000076 013700 000000G 4$: MOV RC25.ADDR,RO 3 2527 
000102 012705 000002 MOV #2,R5 

000106 060005 ADD RO,RS 

000110 011516 MOV CR5),(SP) ; *,RC.REG 

000112 010302 MOV R3,R2 ; IE.VEC,SA 2528 
000114 052702 115400 BIS #115400,R2 ; *,SA 

000120 010200 MOV R2,RO0 ; SA,RC.REG 2529 
000122 010015 MOV RO,CRS) ; RC.REG,* 

000124 012703 000012 MOV #12,R3 ; *, COUNT 2530 
000130 012701 000620 5$: MOV #620,R1 ; *,$$TMP2 2533 
000134 0C1411 6$: BEQ 9$ 

000136 013700 000000G MOV LS$DLY,RO ; *,$$TMPL 

000142 001404 BEQ 8$ 

000144 005066 000004 7$: CLR 4(SP) : $$TMP 

000150 005300 DEC RO :; $$TMPL 

000152 001374 BNE 7$ 

000154 005301 8$: DEC R1 ; $$TMP2 

000156 000766 BR 6$ 

000160 011566 000002 9$: MOV CR5),2(SP) ; *,RC.REG 

000164 011502 MOV C(R5),R2 ; RC.REG,SA 

000166 032702 010000 BIT #10000 ,R2 ; *,SA 

000172 001002 BNE 10$ 

000174 005303 DEC R3 ; COUNT 

000176 001354 BNE 5$ 

000200 005764 000002 10$: TST 2(R4) 3 

000204 001002 BNE 11$ 

000206 005000 CLR RO ; 

000210 000402 BR 12$ 

000212 012700 000001 11$: MOV #1,RO 

000216 062706 000006 12s: ADD #6 ,SP 3 

000222 000207 RTS PC 

; Routine Size: 74 words, Routine Base: $CODE$ + 1572 


; Maximum stack depth per invocation: 10 words 
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ROUTINE HARD_INIT = 


* 


THIS ROUTINE PERFORMS THE FOUR READ / WRITE STEPS REQUIRED TO 
INITIALIZE AN RC25 DEVICE. IF NO READ ERRORS ARE DETECTED IN ANY OF 
THE FOUR STEPS, THEN A SUCCESS VALUE IS RETURNED TO THE CALLER. 
OTHERWISE, ADDITIONAL ATTEMPTS MAY BE MADE TO INITIALIZE THE DEVICE. 
IF ALL ATTEMPTS FAIL, A FAILURE INDICATION IS RETURNED. 


IMPLICIT INPUTS: 
RC25_ADDR - ADDRESS OF CURRENT CONTROLLER'S IP REGISTER 
VEC_AD - ASSUMED VECTOR ADDRESS OF THE CURRENT CONTROLLER 
DCT_ADDR - ADDRESS OF CURRENT CONTROLLER'S DCT 


eo. 
BEGIN 
LOCAL 
IE_VEC : WORD; IE-BIT-AND-VECTOR-ADDRESS/4 BYTE 
CUSED IN STEP 1 WRITE AND STEP 3 READ) 


GET VECTOR ADDR/4 CIE = 0) 


IE_VEC = .VEC_AD t -2; 
INCR ATTEMPTS FROM 1 TO INI_ATT DO 
BEGIN 


oo CRCIP, RC_ALL, ALL_ONES); 


WRITE IP TO START INIT SEQUENCE 


BEGIN 

DELAY (100); 

END 

UNTIL .T_FLAG EQLU TRUE; 
—— = FALSE; 

0 


BEGIN 

DELAY (100); 

END 

UNTIL .T_FLAG EQLU TRUE; 
T_FLAG = FALSE; 


IF ONE SECOND HAS ELAPSED THEN CONTINUE 


IF ONE SECOND HAS ELAPSED THEN CONTINUE 


: STEP 1 


STEP = 1; 
SA_REG = .RC25_ADDR [RCSA, RC_ALL]; 
IF (.SA_REG AND S1_MASK) EQLU SA_S1 


READ SA 
IF STEP 1 READ IS 0.K. 
THEN 


THEN : 
BEGIN 
SA_REG = (WR_RING t 8) OR .IE_VEC; ! STEP 1 WRITE VALUE 
WRT_RC25 CRCSA, RC_ALL, .SA_REG); ! STCP 1 WRITE 
INCR COUNT FROM 1 TO 10 DO ! TEN SECOND LIMIT 

BEGIN 
: DELAY (400); ! ABOUT 1 SECOND 333 old 400 new 
0 

BEGIN 

DELAY (100); 

END 








SEQ 0240 
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yin. A whee TRUE; ! IF ONE SECOND HAS ELAPSED THEN CONTINUE 
SA_REG = .RC25_ADDR [RCSA, RC_ALL]; ! READ SA REGISTER 
IF BIT _TsT CSA_REG, SA $2) ! IF STEP 2 HAS BEGUN 
THEN ! THEN 
EXITLOOP; ! BREAK OUT 
END; 
! STEP 2 


STEP = .STEP + 1; 
me €.SA_REG AND $2 -MASK) EQLU (SA_S2 OR WR_RING) ! oF os 2 READ IS 0.K. 
H 


EN 

BEGIN 

WRT_RC25 CRCSA, RC_ALL, .DCT_ADDR [RR_BEG)); ! RINGBASE-LO, PI = 0 

INCR COUNT FROM 1 T0 10 DO ! TEN SECOND LIMIT 

BEGIN 
: - DELAY (400); ! ABOUT 1 SECOND changed 333 to 400 for 11/84 cache 

BEGIN 
~~ (100); 
UNTIL .T_FLAG EQLU TRUE; ! IF ONE SECOND HAS ELAPSED THEN CONTINUE 


T_FLAG = FALSE; 
SA_REG = .RC25_ADDR [RCSA, RC_ALL}; ! READ SA REGISTER 
! IF STEP 3 HAS BEGUN 


' 
IF BIT _TST (SA_REG, SA_S3) ! 
THEN ! THEN 
EXITLOOP; ! BREAK OUT 
END; 
! STEP 3 


STEP = .STEP «+ 1; 
IF (.SA_REG AND §3 -MASK) EQLU (SA_S3 OR .IE_VEC) ! IF STEP 3 READ IS O.K. 
THEN ! THEN 


BEGIN 


WRT_RC25 CRCSA, RC_ALL, 0); 
INCR COUNT FROM 1 TO 10 DO 
BEGIN 


PP, RINGBASE-HI = 0 
TEN SECOND LIMIT 


: DELAY (400); 
DO 


BEGIN 

— (100); 

UNTIL .T_FLAG EQLU TRUE; ! IF ONE SECOND HAS ELAPSED THEN CONTINE 
T_FLAG = FALSE; 


ABOUT 1 SECOND changed 333 to 400 for 11/84 cache 


SA_REG = .RC25_ADDR (RCSA, RC_ALL]; ! READ SA REGISTER 
IF BIT_TST (SA_REG, SA_S4) ! IF STEP 4 HAS BEGUN 
THEN ! THEN 


3 
’ 
8 
3 
3 
3 
3 
3 
3 
8 
3 
$ 
3 
3 
3 
3 
8 
3 
3 
3 
; 
3 
F 
F 
3 
3 
3 
3 2632 
3 
3 
A 
3 
3 
3 
: 
3 
$ 
’ 
3 
3 
F 
3 
3 
3 
3 
3 
$ 
; 
s 
F 
3 
3 
3 EXITLOOP; ! BREAK QUT 


SNP NNN NN 2 ODN ANNAN AAA AUMUUUUUAADIAARDNISIAADOHUUUUSUS See euNUURHUUU 
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3 2662 7 
3 2663 6 END; 
F 2664 6 i 
3 2665 6 ! STEP 4 
3 2666 6 ! 
F 2667 6 STEP = .STEP + 1; 
3 2668 6 IF (.SA_REG AND S4_MASK) EQLU SA_S4 ! IF STEP 4 READ IS O.K. 
3 2669 6 THEN ! THEN 
$ 2670 7 BEGIN 
8 2671 7 
8 2672 7 WRT_RC25 (RCSA, RC_ALL, 0); ! BURST, LF, GO = 0 
’ 2673 7 RETURN SUCCESS; ' SUCCESS EXIT POINT 
3 2674 7 
3 2675 6 END; 
3 2676 6 
3 2677 5 END; 
Fy 2678 5 
3 2679 4 END; 
H 2680 4 
3 2681 3 END; 
3 2682 3 
3 poet END; ! TRY AGAIN OR GIVE UP 
3 
’ 2685 2 ERRDF (13, EGD_13, EMS_13); ! “INIT SEQUENCE FAILED” 
3 2686 2 RETURN FAILURE; 
8 2687 2 
3 2688 1 END; ! ROUTINE HARD_INIT 
-SBTTL HARD.INIT INITIALIZATION SUBTEST ROUTINES 
000000 004137 000000G HARD .INIT: 
JSR R1,$SAVES ; 2548 
000004 162706 000012 SUB #12, SP 
000010 013746 000612’ MOV VEC.AD,-(SP) ; *,IE.VEC 2568 
000014 006216 ASR (SP) : IE.VEC 
000016 006216 ASR (SP) ; IE.VEC 
000020 013704 000000G MOV LSDLY,R4 : 2575 
000024 013700 000000G MOV RC25.ADDR,RO 3 2590 
000030 012702 000002 MOV #2,R2 
000034 060002 ADD RO,R2 
000036 012705 000002 MOV #2,R5 ; *, ATTEMPTS 
000042 012700 177777 1$: MOV #-1,RO0 ; *,RC.REG 
000046 010077 000000G MOV RO,9RC25. ADDR ; RC.REG,* 
000052 012701 000144 2s: MOV #144 ,R1 ; *,$$TMP2 
000056 001410 3$;: BEQ 6$ 
000060 010400 MOV R4,RO : *,$$TMPL 
000062 001404 BEQ 5$ 
000064 005066 000012 4$: CLR 12(SP) ; $$TMP 
000070 005300 DEC ; $$TMPL 
000072 001374 BNE 4$ 
000074 005301 5$ OEC - R1 ; $$TMP2 
000076 000767 BR 3$ 
000100 123727 000000G 000001 6$: CMPB T.FLAG, #1 : 
000106 001361 BNE 2s 
000110 105037 000000G CLRB T.FLAG F 
000114 012701 000144 7$: MOV #144,R1 ; *,$$TMP2 
000120 001410 8$: BEQ 11$ 











SEQ 0241 









SEQ 0242 
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14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 





MOV R4,RO 3; *, $$TMPL 
BEQ 10$ 
000012 9$; CLR 12(SP) : $$TMP 
DEC RO 3 $$TMPL 
BNE 9$ 
10$: DEC R1 ; $$TMP2 
BR 8$ 
000000G 000001 i1$: — T.FLAG, #1 F 
00 CLRB T.FLAG ; 
000001 000000G MOV #1,STEP : 
000002 MOV (R2),2CSP) ; *,RC.REG 
000000G MOV CR2),SA.REG : RC.REG,« 
MOV (R2),RO ; SA.REG,«* 
001777 BIC #1777,R0 
004000 CMP RO, #4000 
BNE 30$ 
000000G MOV (SP),SA.REG ; IE.VEC,« 
115400 000000G BIS #115400,SA.REG 
000000G MOV SA.REG,RO ; *,RC.REG 
MOV RO,CR2) ; RC.REG,« 
000012 MOV #12,R3 ; *,COUNT 
000144 12$: MOV #144 ,R1 ; *,$$TMP2 
13$: BEQ 16$ 
MOV R4,RO : *,$$TMPL 
BEQ 15$ 
000012 14$: CLR 12(SP) 3; $$TMP 
DEC RO : $$TMPL 
BNE 14$ 
15$: DEC R1 ; $$TMP2 
BR 13$ 
000000G 000001 16$; CMPB T.FLAG, #1 3 
BNE 12$ 
000000G CLRB T.FLAG F 
000004 MOV (R2),4(SP) ; *,RC.REG 
000000G MOV (R2),SA.REG ; RC.REG,« 
010000 BIT #10000, (R2) ; *,SA.REG 
BNE 17$ 
DEC R3 3; COUNT 
BNE 12$ 
000000G 17$: INC STEP 3 
000000G MOV SA.REG,RO F 
003400 BIC #3400,R0 
010233 CMP RO, #10233 
BNE $ 
000000G MOV DCT. ADDR ,RO F 
000004 MOV 4(RO),RO ; *,RC.REG 
MOV RO,(R2) ; RC.REG,« 
000012 MOV #12,R3 3; *,COUNT 
000144 18$: MOV #144 ,R1 ; *,$$TMP2 
19$: BEQ 22$ 
MOV R4,RO 3; *,$STMPL 
BEQ 21$ 
000012 20$: CLR 12(SP) ; $$TMP 
DEC RO 3; $$TMPL 
BNE 20$ 
21$: DEC R1 3; $$TMP2 
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BR 19$ 
000000G 000001 22$: CMPB T.FLAG, #1 ; 2630 
BNE 18$ 
000000G CLRB T.FLAG 3 
000006 MOV (R2),6(SP) ; *,RC.REG 2632 
000000G MOV (R2),SA.REG ; RC.REG,« 
020000 BIT #20000, (R2) ; *,SA.REG 
BNE 23$ 
DEC R3 : COUNT 
BNE 18$ 
000000G 23$: INC STEP ; 
000000G MOV SA.REG,R1 F 
003400 BIC #3400,R1 
MOV (SP),RO ; IE.VEC,« 
020000 BIS #20000 ,RO 
CMP R1,RO0 
BNE 31$ 
CLR RO ; RC.REG 
CLR CR2) 
000012 MOV #12,R3 3; *,COUNT 
000144 24$: MOV #144 ,R1 ; *,$$TMP2 
25$: BEQ 28$ 
MOV R4,RO ; *,$$TMP1 
BEQ 27$ 
000012 26%: CLR 12¢CSP) 3; $$TMP 
DEC RO ; $$TMPL 
BNE 26$ 
27$: DEC R1 3; $$TMP2 
BR 25$ 
000000G 000001 28%: CMPB T.FLAG, #1 H 
BNE 24$ 
000000G CLRB T.FLAG ; 
000010 MOV (R2),10(SP) ; *,RC.REG 
000000G MOV (R2),SA.REG ; RC.REG,« 
040000 BIT #40000, (R2) ; *,SA.REG 
BNE 29$ 
DEC R3 ; COUNT 
BNE 24$ 
000000G 29%: INC STEP ; 
000000G MOV SA.REG,RO 3 
003777 BIC #3777,R0 
040000 CMP RO, #40000 
30$: BNE 31$ 
CLR (R2) 3 
000001 MOV #1,R0 F 
BR 33$ 
31$: DEC R5 ; ATTEMPTS 
BEQ 32$ 
002060’ JMP i$ 
32$: TRAP 55 3 
-WORD 15 
WORD €GD.13 
-WORD €MS.13 
CLR RO ; 
000014 33%: ADD #14,SP ; 
RTS PC 








- 
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3 Routine Size: 212 words, Routine Base: ‘sCODE$ + 2016 
s Meximum steck depth per invocation: 14 words 








3 2689 1 ROUTINE INI_RRING : NOVALUE = 
3 2690 1 
3 2691 1 te 
3 2692 1 ! THIS ROUTINE IS RESPONSIBLE FOR ALLOCATING ENOUGH MSCP ENVELOPES TO 
3 2693 1 ! FILL AN RC25 RESPONSE RING. THE ENVELOPE DESCRIPTOR OF EACH ENVELOPE 
3 2694 1 ! (LOCATED IN FRONT OF THE ENVELOPE ITSELF) IS LOADED INTO SUCCESSIVE 
3 2695 1 ! RRING SLOTS. NOTE THAT THE ENVELOPE DESCRIPTORS HAVE BEEN INITIALIZED 
3 2696 1 ! WITH THE FLAG AND OWNERSHIP BITS SET TO “1”, MAKING EACH SLOT 
3 2697 i ! CONTROLLER-OWNED. 
3 2698 1 H 
3 2699 1 ! IMPLICIT INPUTS: 
3 2700 1 ! CCTLR - CURRENT CONTROLLER NUMBER 
3 bk 1 ! DCT_ADDR - ADDRESS OF CURRENT CONTROLLER’S DCT 
3 1 !- 
3 2704 2 BEGIN 
3 2705 2 
F 2706 2 LOCAL 
3 2707 2 INDEX : WORD, 
3 2708 2 RRING_ADDR; 
3 2709 2 
3 2710 2 RRING_ADDR = .DCT_ADOR [RR_BEG); ! FIRST RESPONSE RING SLOT 
’ 2711 2 INCR COUNT FROM 1 TO RRING_LEN DO 
3 2712 3 BEGIN 
F 2713 3 
3 2714 3 INDEX = GET_ENV (.CCTLR); ! GET AN MSCP ENVELOPE 
F 2715 3 MSCP_ENV [.INDEX, MSGLEN] = MSG_LEN «# 2; ! SET MESSAGE LENGTH FIELD 
3 2716 3 -RRING_ADDR = .MSCP_ENV [. INDEX, ENV_LO]); ! LOAD LO-ORDER ENV DESC INTO SLOT 
3 2717 3 RRING_ADDR = .RRING_ADDR + 2; ! ADVANCE TO SECOND WORD 
F 2718 3 -RRING_ADDR = .MSCP_ENV [. INDEX, ENV_HI]; ! LOAD HI-ORDER ENV DESC INTO SLOT 
3 th RRING_ADDR = .RRING_ADOR + 2; ! ADVANCE TO NEXT SLOT 
$ 
F 2721 2 END; 
3 2723 1 END; 
-SBTTL INI.RRING INITIALIZATION SUBTEST ROUTINES 
000000 004137 000000G INI.RRING: 
JSR R1,$SAVE3 F 2689 
000004 013700 000000G MOV DCT.ADDR,RO 3 2710 
000010 016001 000004 MOV 4(RO),R1 3; *,RRING.ADOR 
000014 012702 000010 MOV #10,R2 ; *,COUNT 2711 
000020 013746 000000G 1$: MOV CCTLR, -(SP) 3 2714 
000024 004737 000000G JSR PC GET. ENV 
000030 010003 MOV RO,R3 3; *, INDEX 
000032 010316 MOV R3,(SP) : INDEX,« 2715 
000034 012746 000104 MOV $104,-(SP) 
000040 004737 000000G JSR PC,BLSMUL 
000044 012760 000074 000004G MOV #74,MSCP .ENV+4(RO) 
000052 016021 000000G MOV MSCP .ENV(RO),CR1)+ ; #,RRING.ADOR 2716 
000056 016021 000002G MOV MSCP .ENV+2(RO),(R1)>+ ; *,RRING. ADDR 2718 
000062 022626 CMP (SP)+,(SP)+ F 
000064 005302 DEC R2 3; COUNT 
000066 001354 BNE is 
000070 000207 RTS PC 3 
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P 
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3; Routine Size: 29 words, Routine Base: $CODE$ + 2666 
3; Meximum steck depth per invocation: 7 words 
s 2724 1 ROUTINE SET_CTLR_CHAR : NOVALUE = 
3 2725 1 
: 2726 1 $e 
s e727 1 ! THIS ROUTINE IS CALLED BY CTLR_INIT AFTER THE RC25 HAS BEEN HARD- 
s 2728 1 H INITIALIZED. ITS PURPOSE IS TO FORMAT AND SEND THE “SET CONTROLLER 
j ares ; : CHARACTERISTICS” COMMAND, AND TO VERIFY THAT THE MESSAGE WAS ACCEPTED. 
7 . 
® ga © ! IMPLICIT INPUTS: 
: gia © ! CCTLR - CURRENT CONTROLLER NUMBER 
5 aie ¢& !- 
: 2 8 BEGIN 
Fy 2736 2 
OM ig i ae LOCAL 
; 2738 2 REASON : WORD, $ DROP UNIT REASON 
3 hed : M_INDEX : WORD; ! MSCP ENVELOPE INDEX 
3 
; 2741 2 M_INDEX = GET_ENV (.CCTLR); ! GET AN MSCP ENVELOPE 
s 2742 2 MSCP_ENV [.M_INDEX, OPCODE) = OP_SCC; ' OPCODE = SET CTLR CHAR 
s 274 2 MSCP_ENV [.M_INDEX, C_FLAGS] = CF_MSC + CF_THS; ! CONTROLLER FLAGS 
s 2744 2 IF SEND (.M_INDEX) EQLU FAILURE ! ATTEMPT SEND; IF CTLR IS OFFLINE 
; e274 2 THEN ! THEN 
s 274 2 PUT_ENV (.M_INDEX) ! RETURN ENVELOPE TO POOL 
s 2747 2 E ! IF SEND WAS SUCCESSFUL 
s 274 3 BEGIN 
:; 2749 3 
s 2750 3 WAIT (); ! WAIT FOR RETPKT RESPONSE 
s e751 3 RP_INDX = OUT_IODQ (); ! GET INDEX OF RETPKT 
; e752 3 RP_ADOR = RETPKT + (.RP_INDX * RP_LEN * 2); ! CALCULATE RETPKT ADDRESS 
. 25 = IF .RP_ADDR (CONID) EQLU CID_DRIVER ! IF RETPKT IS FROM “DRIVER” 
s 2754 3 THEN ! THEN 
; 2755 4 BEGIN 
3 2756 4 
s e757 4 REASON = DU_FATAL; ! ASSUME FATAL SA ERROR 
s e758 4 IF .RP_ADDR (MESTYP]) EQLU MT_TIMEOUT $' IF COMMAND TIMED OUT 
s; 2759 4 THEN ! THEN 
s 2760 5 BEGIN 
; 2761 5 
s 2762 5 REASON = DU_INIT; ! SET REASON TO INIT ERROR 
5 ae : ERRDF (15, EGD_15, EMS_15); ! “MESSAGE RESPONSE TIMEOUT” 
F 
s e765 4 END; 
s 2766 4 
3 tae : DROP_CTLR (.CCTLR, .REASON); ! DROP CONTROLLER'S UNITS 
3 . 
; 2769 3 END; ! IF RETPKT IS FROM “DRIVER” 
s 2770 3 
‘eee 4s PUT_RETPKT ( .RP_INDX); 
5 ave 8 
s; 2773 2 END; ! IF SEND WAS SUCCESSFUL 
s e775 1 END; ! ROUTINE SET_CTLR_CHAR 

-SBTTL SET.CTLR.CHAR INITIALIZATION SUBTEST ROUTINES 
000000 010146 SET.CTLR.CHAR: 

MOV R1,-C(SP) 3 2724 





L 









000210 004737 000000G 


s Routine Size: 74 words, 
s Meximum steck depth per invocetion: 


CZRCDBO RC25 DISK EXERCISER 
vo2.0 INITIALIZATION SUBTEST ROUTINES 


23: 


4%: 


Routine Bese: 
6 words 


14-Jun-1985 09: 
14-Jun-1985 09: 


CCTLR, -( SP) 
PC GET .ENV 
RO 


04 ,MSCP.ENV+20(RO) 
#120 ,MSCP.ENV+26(RO) 
R1,(SP) 


PC, SEND 
RO 


#177417,R0 
RO, #100 

es 

#2,R1 

55 

17 

EGD.15 
EmMS.15 
CCTLR,C . 


PC ,OROP.CTLR 
(SP)-+ 


RP .INDX, (SP) 
PC ,PUT .RETPKT 
(SP)-+ 


(SP)+,(SP)+ 
(SP)+,R1 
PC 


$CODE$ + 2760 


5 
s REASON,¢ 
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3 2741 
: «,M. INDEX 
3; M.INDEX,« 2742 









3 
; M.INDEX,« 2744 








s M.INDEX,« 2746 


; RP.INDX,« 








; *,REASON 














_ 


CZRCO3 
vo2.0 


2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
279% 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2618 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 


SSS SSS SSO SSE SHED CHGS OCHRE READSOSDEKAGD EEG SOS 





PEL LAL DSL MANN BB BB BN OF OF OF OF FDP 00 90.0 100 10.90 0 0 0 ee ee ee pe ee pe ee pe pe pe 


















SEG 0247 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 53 
INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC.CZRCDB JCZRCO3. SRC;17 £14) 


ROUTINE UNIT_INIT : NOVALUE = 


* 


THIS ROUTINE IS CALLED FROM DRIVER_INIT FOR EACH CONFIGURED UNIT 
(PLATTER) WHICH IS ATTACHED TO A CONTROLLER THAT SURVIVED 
INITIALIZATION. ITS PURPOSE IS TO FORMAT AND SEND AN “ONLINE” 
MESSAGE, AND TO VERIFY THE RESPONSE. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
CPLAT - CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
L$LUN - CURRENT (DRS) UNIT NUMBER 
CST_ADOR - ADDRESS OF CURRENT CONTROLLER'S CST 
CUOFF - CURRENT UNIT CST OFFSET 


BEGIN 

LOCAL 
REASON : WORD, ! DROP UNIT REASON 
M_INDEX : WORD; ! MSCP ENVELOPE INDEX 


GET AN MSCP ENVELOPE 

SET PLATTER ADDRESS (MSCP UNIT NUMBER) 
OPCODE FOR “ONLINE” 

SHOW ALL ECC ERRORS IN ERROR LOG MESSAGES 
roa TO SEND; IF CTLR IS OFFLINE 

Hi 


M_INDEX = GET_ENV (.CCTLR); 

MSCP_ENV [.M_INDEX, PL_ADDR] = .CPLAT; 
MSCP_ENV [.M_INDEX, OPCODE) = OP_ONL; 
MSCP_ENV [.M_INDEX, DDPAR] = BITOO; 
wa (.M_INDEX) EQLU FAILURE 

THEN 


PUT_ENV (.M_INDEX) RETURN ENVELOPE TO POOL 

SE OTHERWISE (SEND WAS SUCCESSFUL ) 
BEGIN 
WAIT (); WAIT FOR RETPKT RESPONSE 


GET INDEX OF RETPKT 
CALCULATE RETPKT ADDRESS 
ey. IS FROM “DRIVER” 
HEN 


RP_INDX = OUT_IODQ (); 

RP_ADDR = RETPKT + (.RP_INDX # RP_LEN # 2); 
ee (CONID) EQLU CID_DRIVER 

H 


BEGIN 


REASON = DU_FATAL; ASSUME FATAL SA ERROR 
IF _.RP_ADDR [MESTYP]) EQLU MT_TIMEOUT IF COMMAND TIMED OUT 
THEN ! THEN 

BEGIN 


REASON = DU_INIT; 
ERRDF (15, EGD_15, EMS_15); 


SET REASON TO INIT ERROR 
“MESSAGE RESPONSE TIMEOUT” 


END; 
DROP_CTLR (CCTLR, .REASON): ' DROP ALL CONTROLLER'S UNITS 
END 
oun” ! OTHERWISE, IF RETPKT IS FROM DISK MSCP 
EGIN 


GET STATUS CODE 
GET SUB-CODE 


ST_CODE = .RP_ADOR [STSCOD); 
SB_CODE = .RP_ADOR [SUBCOD); 





CZ2RCO3 
vo2.0 


“2 SASS aHSHHSHHEHRHRHEHEHSHHOHKHHAKSHEHHSESHEHKEHEHKEKEEES 
ad 
x 





HUN AWUAAE BUUAAHDAAAHUAAHAADAHUAMNUUSUNUUUUUU ® & 


004137 


013746 
004737 
019001 
010116 
012746 
004737 
013760 
112760 
012760 
019116 
004737 





CZRCOBO RC25 DISK EXERCISER 
INITIALIZATION SUBTEST ROUTINES 


IF .ST_CODE NEQU ST_SUC 

THEN 
BEGIN 
ERRDF (16, EGD_16, EMS_16); 
DUR [.L$LUN] = DU_INIT; 
DODU (.L$LUN); 
END 


ELSE 
BEGIN 


IF (C(BIT_TST CRP_ADDR [U_FLGS], UF_WPH)) AND 
(.CST_ADDR [.CUOFF, P_PROT] EQLU UNPROTECTED)) 


HEN 
BEGIN 


ERROF (17, EGD_17, EMS_17); ! “WRITE-PROTECT CONFLICT” 


DUR [.L$LUN] = DU_INIT; 
DODU (.L$LUN); 


END 
ELSE 
BEGIN 


USIZE = .RP_ADDR [USIZ_LO); 
CST_ADOR [.CUOFF, P_STAT] = ONLINE; 


CPT [.L$LUN) = YES; 


CST_ADDR [U_CNT] = .CST_ADDR [U_CNT] + 1; 


END; 
END; 
END; 
PUT_RETPKT (.RP_INDX); 
END; 

END; 
- SBTTL 

000000G UNIT. INIT: 
JSR 

000000G MOV 

000000G JSR 
MOV 
MOV 

000104 MOV 

000000G JSR 

000000G 000014G MOV 

000011 000020G MOVB 

000001 000044G MOV 
MOV 

900000G JSR 
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! IF ei CODE IS NOT SUCCESSFUL 
H 


! THE 


“ONLINE FAILED” 
SET UP REASON FOR DROPPING UNIT 
DROP UNIT 


! STATUS CODE IS 0O.K. 


IF UNIT IS WRITE-PROTECTED AND 
, —" ALLOWED WRITES 
H 


! SET REASON TO DROP UNIT 
! DROP UNIT 


WRITE PROTECT SWITCH IS 0.K. 


UNIT SIZE (NO. OF LBN’‘S) 
MARK UNIT ONLINE 

0.K. TO TEST 

INCR NO. OF TESTABLE UNITS 


! IF STATUS CODE = SUCCESS 
! IF RETPKT ORIGINATED AT CONTROLLER 


! IF SEND WAS SUCCESSFUL 
! ROUTINE UNIT_INIT 


UNIT.INIT INITIALIZATION SUBTEST ROUTINES 


R1,$SAVE2 H 2776 
CCTLR, -( SP) ; 2798 
PC,GET.ENV 

RO,R1 ; #,M. INDEX 

R1,(SP) ; M.INDEX,«# 2799 


CPLAT,MSCP .ENV+14(RO) 
#11,MSCP.ENV+20(RO) 
#1,MSCP.ENV+44(RO) 
R1,(SP) 

PC, SEND 


M. INDEX, + 


CZRCD3 
vo2.0 








CZRCDBO RC25 DISK EXERCISER 


INITIALIZATION SUBTEST ROUTINES 


000000G 


000000G i$: 
000000G 
000000G 


000060 

000000G 
000000G 
000000G 


000003 
000004 
000002 
177417 
000100 


000002 


000003 


000000G 2$: 
000000G 


000000G 3$: 
000000G 


000016 
177740 
900016 


174000 

000000G 
000000G 
000000G 


000002 000000G 


020000 000022 4$: 
000000G 
000000G 
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R1,(SP) 
ow ae 


PC WAIT 

PC ,OUT.I00Q 
RO,RP. INDX 
RO,(SP) 
#60, -( SP) 
PC ,BL$MUL 
ORETPKT,RO 


EMS.15 

#CCTLR. CSP) 
RO,-(SP) 

PC ,OROP.CTLR 
(SP)+ 

6$ 
16(R1),ST.CODE 
#177740,ST.CODE 
16(R1),RO 


R 
#174000,R0 
RO,SB. CODE 
L$LUN,R2 
ST .CODE 

4s 

55 

20 

EGD. 16 
EMS. 16 

#2 ,DURCR2) 
R2,RO 

51 

6$ 

+ ccrceineas 


CUOFF ,RO 
RO 
CST.ADDR ,RO 


VAX-11 Bliss-16 V4.0-579 


USER $1:(AZTEC.CZRCDB JCZRCO3.SRC;17 


; M.INDEX,« 


; RP.INDX,# 


; RP.ADDR,«* 


; *,REASON 


; *,REASON 


; REASON,«* 
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2804 


2802 
2808 
2809 


2810 








rr ec 





= 






SEQ 0250 
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000342 005710 TST (RO) 
000344 100012 BPL $ 
000346 104455 TRAP 55 3 2850 
000350 000021 WORD 21 
000352 000000G «WORD €G0.17 
000354 000000G «WORD €MS.17 
000356 112762 000002 000000G MOVB #2 ,DUR(R2) $ 2851 
000364 010200 MOV R2,RO 3 2852 
000366 104451 TRAP 51 
000370 000421 BR 6$ F 2845 
000372 016137 000050 000616’ 5$: MOV 50(R1),USIZE 3 2858 
000400 013700 000000G MOV CUOFF ,RO 3 2859 
000404 006300 ASL RO 
000406 063700 000000G ADD CST. ADOR,RO 
000412 052710 020000 BIS #20000, (RO) 
000416 112762 000001 000000G MOVB #1,CPTC(R2) F 
000424 013700 0000006 MOV CST. ADDR ,RO 3 
000430 105260 000005 INCB 5(RO) 
000434 013716 000000G 6$: MOV . RP.INDX,(CSP) 3 
000440 004737 000000G JSR PC ,PUT.RETPKT 
000444 005726 TST (SP)+ 3 
000446 022626 7$: CMP (SP)+,(SP)+ 3 
000450 000207 RTS PC Fy 
; Routine Size: 149 words, Routine Base: $CODE$ + 3204 


; Maximum stack depth per invocation: 8 words 





SS 





SEQ 0251 
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vo2.0 INITIALIZATION SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCD3.SRC;17 (15) 
3 2874 1 ROUTINE ACCESS : NOVALUE = 
3 2875 1 
3 2876 1 te 
3 2877 1 ! THIS ROUTINE IS CALLED BY INIT_TEST TO VERIFY THAT THE CURRENT PLATTER 
8 2878 1 H CAN BE ACCESSED. THIS OBJECTIVE IS ACCOMPLISHED BY FORMATTING AND 
3 2879 1 ! SENDING ONE OR TWO MSCP ACCESS COMMANDS TO THE PLATTER, AND CHECKING 
3 oy ; ! THE STATUS FIELD OF THE RESPONSE MESSAGE(S). 
a 
3 2882 1 : IMPLICIT INPUTS: 
3 2883 1 ! CCTLR - CURRENT CONTROLLER NUMBER 
ry 2884 1 H CPLAT - CURRENT PLATTER ADDRESS (MSCP UNIT NUMBER) 
8 2885 1 H L$LUN - CURRENT (DRS) UNIT NUMBER 
Fy 2886 1 !- 
3 2887 i 
3 2888 2 BEGIN 
’ 2889 2 
8 2890 2 LOCAL 
3 2891 2 M_INDEX : WORD, 
F 2892 2 RESULT : WORD, 
3 2893 2 LBN : WORD, 
$ 2894 2 PASS : WORD; 
3 2895 2 
F 2896 2 RESULT = FAILURE; ! GUILTY UNTIL PROVEN INNOCENT 
s 2897 2 ST_CODE = SB_CODE = 0; ! STATUS CODE AND SUB-CODE 
F 2898 2 LBN = ((.USIZE t -1) AND #0'77777') - 1; ! START WITH LAST LBN ON TOP SURFACE 
s 2899 2 PASS = 1; ! LOOP PASS COUNT 
3 2900 2 DO ' LOOP STARTS HERE 
3 2901 3 BEGIN 
s 2902 3 
3 2903 3 M_INDEX = GET_ENV (.CCTLR); !' GET AN MSCP ENVELOPE 
F 2904 3 MSCP_ENV [.M_INDEX, PL_ADDR] = .CPLAT; ! SET PLATTER ADDR CMSCP UNIT NUMBER) 
3 2905 3 MSCP_ENV [.M_INDEX, OPCODE]) = OP_ACC; ' ACCESS OPCODE 
8 2906 3 MSCP_ENV [.M_INDEX, BC_LO) = BLK_SIZE; ! BYTE COUNT (1 BLOCK) 
: 2907 3 MSCP_ENV [.M_INDEX, LBN_L) = .LBN; ' LOGICAL BLOCK NUMBER 
3 2908 3 IF SEND (.M_INDEX) EQLU FAILURE ! ATTEMPT TO SEND; IF CTLR NOT ONLINE 
3 2909 3 THEN ! THEN 
s 2910 4 BEGIN 
H 2911 4 
3 2912 4 PUT_ENV (.M_INDEX); !' RETURN ENVELOPE TO POOL 
3 2913 4 PASS = 2; ' NO MORE TRIES 
H 2914 4 
$ 2915 4 END 
3 2916 3 ELSE ! IF SEND WAS SUCCESSFUL 
8 2917 4 BEGIN 
3 2918 4 
$ 2919 4 WAIT (); ' WAIT FOR RESPONSE 
$ 2920 4 RP_INDX = OUT_IODQ (); ! GET RETPKT CRESPONSE) INDEX 
3 2921 4 RP_ADDR = RETPKT + (.RP_INDX * RP_LEN «# 2); ! CALCULATE RETPKT ADDRESS 
8 2922 4 IF .RP_ADDR [CONID] EQLU CID_DRIVER ! IF RETPKT CAME FROM “DRIVER” 
$ 2923 4 THEN ! THEN 
F 2924 4 PASS = 2 ! NO MORE TRIES 
8 2925 4 ! OTHERWISE - CHECK OUT RESPONSE 
F 2926 5 BEGIN 
3 2927 5 
$ 2928 5 ST_CODE = .RP_ADDR [STSCOD]; ! GET STATUS CODE FROM PACKET 
8 2929 5 SB_CODE = .RP_ADDR [SUBCOD]; ! GET SUB-CODE FROM PACKET 
F 2930 5 IF .ST_CODE EQLU ST_SUC ! IF STATUS CODE INDICATES SUCCESS 











ee 
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s e931 5 THEN ! THEN 
; 2932 6 BEGIN 
: 2933 6 
; 2934 6 RESULT = SUCCESS; 
; 2935 6 PASS = 2; ' NO NEED TO TRY AGAIN 
; 2936 6 
s 2937 5 END; 
3 2938 5 
8 Sas Z END; ! IF RETPKT ORIGINATED AT CONTROLLER 
F 
3 2941 4 PUT_RET®KT (.RP_INDX); 
8 2942 4 
3 hey ; END; ! IF SEND WAS SUCCESSFUL 
’ 
F 2945 3 LBN = .LBN ¢ 1; ! ADVANCE TO FIRST LBN OF BOTTOM SURFACE 
3 2946 3 PASS = .PASS + 1; ! SECOND PASS 
F 2947 3 
3 2948 3 END ! END OF PASS LOOP 
3 2949 3 
3 2950 2 UNTIL .PASS GEQU 3; 
3 2951 2 
$ 2952 2 IF .RESULT EQLU FAILURE 
3 2953 2 THEN 
3 2954 3 BEGIN 
3 2955 3 
$ 2956 3 SETPRI (PRIOS); ! DELAY POSSIBLE ERROR LOG MESSAGE 
F 2957 3 ERRDF (18, EGD_18, EMS_18); ! “ACCESS FAILED” 
3 2958 3 SETPRI CPRIOO); !' RESTORE PROCESSOR PRIORITY 
3 2959 3 DUR [.L$LUN] = DU_INIT; ! SET REASON TO DROP UNIT 
; 2960 3 DODU (.L$LUN); ! DROP UNIT 
3 2961 3 
3 2962 2 END; ! IF ACCESS FAILED 
: 26s @ 
$ 2964 1 END; ' ROUTINE ACCESS 

-SBTTL ACCESS INITIALIZATION SUBTEST ROUTINES 
000000 004137 000000G ACCESS: JSR R1,$SAVE5 ; 2874 
000004 005003 CLR R3 ; RESULT 2896 
000006 005037 000000G CLR SB .CODE 3 2897 
000012 005037 000000G CLR ST.CODE 
000016 013700 000616’ MOV USIZE,RO 3 2898 
000022 006200 ASR RO 
000024 010004 MOV RO,R4 3; *,LBN 
000026 042704 100000 BIC #100000,R4 ; *,LBN 
000032 005304 - DEC R4 ; LBN 
000034 012701 000001 MOV #1,R1 : *,PASS 2899 
000040 013746 000000G 1$: MOV CCTLR, -(SP) PF 2903 
000044 004737 000000G JSR PC ,GET.ENV 
000050 010002 MOV RO,R2 ; *,M. INDEX 
000052 010216 MOV R2,(SP) ; M. INDEX, « 
000054 012746 000104 MOV #104 ,-(SP) 
000060 004737 000000G JSR PC ,BL$MUL 
000064 013760 000000G 000014G MOV CPLAT,MSCP.ENV+14(RO) 
000072 112760 000020 000020G MOVB #20,MSCP .ENV+20(RO) ; 
000100 012760 001000 0000246 MOV #1000,MSCP .ENV+24(RO) 3 
000106 010460 000044G MOV R4,MSCP.ENV+44(RO) ; LBN,* 








; Routine Size: 
; Maximum stack 


L 








CZRCOBO RC25 DISK EXERCISER 


INITIALIZATION SUBTEST ROUTINES 


000000G 


000000G 
000002 


000000G 2s: 
000000G 
000000G 


000060 
000000G 
000000G 
000000G 
000003 


000016 
177740 
000016 


000003 


000000G 
000000G 


174000 

000000G 

000000G 

000001 

000002 3$: 
000000G 4$; 
000000G 


5$: 


000003 


000240 


000000G 
000002 000000G 


6$: 


120 words, Routine Base: 
depth per invocation: 


10 words 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


MOV R2,(SP) 

JSR PC ,SEND 

TST RO 

BNE 2$ 

MOV R2,(SP) 

JSR PC ,PUT.ENV 
MOV #2,R1 

BR S$ 

JSR PC WAIT 

JSR PC ,OUT.I0DQ 
MOV RO,RP. INDX 
MOV RO, (SP) 

MOV #60, -CSP) 
JSR PC ,BL$MUL 
ADD @RETPKT RO 
MOV RO,RP. ADDR 
CMPB 3CRO), #3 
BEQ 3$ 

MOVB 16(RO),ST.CODE 
BIC #177740,ST.CODE 
MOV 16(RO),R5 
ASR RS 

ASR RS 

ASR RS 

ASR RS 

ASR RS 

BIC #174000,R5 
MOV RS ,SB. CODE 
TST ST.CODE 
BNE 4s 

MOV #1,R3 

MOV #2,R1 

MOV RP .INDX, (SP) 
JSR PC ,PUT.RETPKT 
TST (SP)-+ 

INC R4 

INC Ri 

CMP (SP)+,(SP)+ 
CMP R1, #3 

BLO 1$ 

TST R3 

BNE 6$ 

MOV #240 ,RO 
TRAP 41 

TRAP 55 

-WORD 22 

-WORD €EGD.18 
-WORD EMS.18 

CLR RO 

TRAP 41 

MOV L$LUN,RO 
MOVB #2 ,DURCRO) 
TRAP S51 

RTS PC 
$CODE$ + 3656 










SEQ 0253 
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(15) 


USER$1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 
; M.INDEX,«# 


; M.INDEX,«# 
; *,PASS 
3 
$ 
3 


; RP.INDX,* 


; *,RESULT 
; *,PASS 


LBN 
PASS 


PASS,* 
; RESULT 








UD DD DD DD AD 8 FE GED 0 PP 0 G80 eee ee ee ee ee ee ee ee ee ee be pe pe 
















SEQ 0254 
CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 61 
DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (16) 


SSBTTL ‘DM EXERCISER ROUTINES’ 
ROUTINE DM_EXER : NOVALUE = 


7 


THIS ROUTINE CONTROLS THE OVERALL OPERATION OF THE DM EXERCISER. THE 
DM EXERCISER IS A SUBTEST OF THE HOST EXERCISER. ITS BASIC PURPOSE IS 
TO SUPERVISE THE OPERATION OF THE FRONT PANEL TEST WHICH EXECUTES IN 
THE DM (DIAGNOSTIC MACHINE). 


THE HOST INITIATES THE FRONT PANEL TEST BY DOWN-LINE LOADING THE CROM 
PRIMER PROGRAM FROM DM_INIT. THIS PROGRAM HAS THE JOB OF LOADING THE 
FRONT PANEL TEST INTO CONTROLLER MEMORY AND PASSING EXECUTION CONTROL 
TO IT. WHEN AND IF THIS SUCCEEDS, THE HOST SENDS DOWN THE ADDRESS OF 
THE DM EXERCSER / FRONT PANEL TEST COMMUNICATION AREA (DM_COMM). THIS 
BLOCK OF MEMORY HOLDS THE UNIT NUMBERS OF DISKS WHICH ARE TO BE 
DM-EXERCISED, AS WELL AS UNIT STATISTICS (LOADED BY THE FRONT PANEL 
TEST AND READ BY THE HOST). 


THIS ROUTINE DISPATCHES PROCESSING TO OTHER ROUTINES ON A REGULAR 
BASIS UNTIL ALL UNITS HAVE COMPLETED THE REQUIRED NUMBER OF BYTES 
TRANSFERRED. THESE OTHER ROUTINES INCLUDE THE PROCESSING OF DUP END 
MESSAGES (DM_RETPKT), UPDATING HOST STATISTICS FROM DM_COMM (DM_TALLY), 
AND MAINTAINING COMMAND TIMERS (DRV_TIMCHK). 


BEGIN 
IF MANUAL ! IF ATTENDED 
THEN ! THEN 

PRINTF (MSG_06); ! "DM EXERCISER SUBTEST START” 
DM_INIT (); ! INIT DM_EXER DATA, SEND CROM PRIMER 
we) ! “EXECUTIVE” PROCESSING LOOP 

BEGIN 

BREAK; ! BREAK IN CASE USER TYPED <CTRL-C> 


' 
DM_RETPKT (); ! PROCESS ANY DUP END MESSAGES OR “DRIVER” ERRORS 
IF ae EQLU TRUE : ca SECOND HAS ELAPSED 

t 


THE 
BEGIN 
INCR CTLR FROM O TO (.CTLR_CNT - 1) DO ! FOR EACH CONFIGURED CONTROLLER 
BEGIN 
SET UP CONTROLLER-RELATED DATA ITEMS 
IF CONTROLLER IS ONLINE AND 


THERE IS AT LEAST 1 UNIT UNDER TEST 
THEN 


SET_CPAR (.CTLR); 

IF ((.CST_ADDR [STATE] EQLU ONLINE) AND 
(.CST_ADDR [U_CNT] NEQU 0)) 

THEN 
BEGIN 


IF DM_ACC () 
THEN 


IF ACCESS GAINED TO DM_COMM AREA 
THEN 


DM_TALLY (); ADD DM_COMM STATS TO HOST TOTALS 
DM_TIME (); CHECK FPT SANITY TIMER FOR CONTROLLER 


END; ! IF CTLR IS ONLINE AND AT LEAST ONE UNIT 












SEQ 0255 
P 





CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jur -1985 09:41:21 VAX-11 Bliss-16 V4.0-579 age 62 
vo2.0 DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC.CZRCDOB JCZRCD3.SRC;17 (16) 
3022 5 
os 3 END; ! CONTROLLER LOOP 
fee 2 DRV_TIMCHK (); ! CHECK FOR COMMAND TIMEOUTS 
oot ; END; ! IF ONE SECOND HAS ELAPSED 
3029 3 END ! END OF “EXECUTIVE” LOOP 
Soar : UNTIL DM_QUIT (); ! UNTIL ALL UNITS DONE 
3032 1 END; ! ROUTINE DM_EXER 
-SBTTL OM.EXER DM EXERCISER ROUTINES 
000000 004137 000000G DM.EXER: JSR R1, $SAVE2 3 
000004 104450 TRAP 50 3 
000006 103007 BHIS i$ 
000010 012746 000000G MOV #MSG .06, -( SP) 3 
000014 012746 000001 MOV #1,-C(SP) 
000020 010600 MOV SP ,RO ; SP,* 
000022 104417 TRAP 17 
000024 022626 cmp (SP)+,(CSP)+ 
000026 004737 000000V 1$: JSR PC ,OM. INIT 3 
000032 104422 2$: TRAP 22 ; 
000034 004737 000000V JSR PC .DM.RETPKT ; 
000040 123727 000000G 000001 CMPB T.FLAG, #1 3 
000046 001035 BNE 7$ 
000050 013702 000000G MOV CTLR.CNT,R2 3 
900054 005001 CLR R1 ; CTLR 
000056 000425 BR 6$ 
000060 010146 3$: MOV R1,-(SP) ; CTLR,# 
000062 004737 000000G JSR PC,SET.CPAR 
000066 013700 0000006 MOV CST.ADDR,RO : 
000072 005760 000002 TST 2CRO) 
000076 100013 BPL 5$ 
000100 105760 000005 TSTB 5(RO) 8 
000104 001410 BEQ 5$ 
000106 004737 000000V JSR PC,DM.ACC ; 
000112 006000 ROR RO 
000114 103002 BCC 4$ 
000116 004737 000000V JSR PC,DM. TALLY 3 
000122 004737 000000V 4$;: JSR PC OM. TIME 3 
000126 005726 5$: TST (SP)+ 3 
000130 005201 INC R1 ; CTLR 
000132 020102 6$: CMP R1,R2 ; CTLR,« 
000134 002751 BLT 3$ 
000136 004737 000000V JSR PC ,DORV. TIMCHK 3 
000142 004737 000000V 7$; JSR PC ,DM. QUIT 3 
000146 006000 ROR RO 
000150 103330 BCC 2$ 
000152 000207 RTS PC : 
3; Routine Size: 54 words, Routine Base: $CODE$ + 4236 


s Maximum stack depth per invocation: 7 words 

















$s 
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DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (17) 


ROUTINE DM_INIT : NOVALUE = 


+ 


THIS ROUTINE IS CALLED BY DM_EXER WHEN THE DM EXERCISER IS FIRST 
STARTED. ITS PURPOSE IS (A) TO INITIALIZE DM EXERCISER DATA, AND (8) 
TO START THE FRONT PANEL TEST EXECUTING IN THE DM. 


THE MOST SIGNIFICANT DATA INITIALIZATION OCCURS IN THE COMMUNICATION 
AREA (DM_COMM) BETWEEN THE HOST AND THE FRONT PANEL TEST. PLATTER 
ADDRESSES TO BE EXERCISED UNDER THE FPT ARE LOADED INTO THIS AREA, 
AND ALL STATISTICS AND ACCESS WORDS ARE CLEARED TO ZERO. 


TO START THE FPT EXECUTING, THIS PROGRAM CAUSES THE CROM PRIMER TO 

BE DOWN-LINE LOADED INTO THE DM VIA DUP‘S “EXECUTE SUPPLIED PROGRAM” 
MESSAGE. THE CROM PRIMER THEN LOADS THE FRONT PANEL TEST INTO RAM AND 
STARTS ITS EXECUTION. THE SUCCESS / FAILURE OF THIS OPERATION IS 
COMMUNICATED BACK TO THE HOST THROUGH AN END MESSAGE. 


BEGIN 
LOCAL 
MX : WORD; ! MSCP ENVELOPE INDEX 
eg FROM 0 TO (.CTLR_CNT - 1) DO ! FOR EACH CONFIGURED CONTROLLER 
SET_CPAR (.CTLR); ! SET UP CONTROLLER-RELATED PARAMETERS 
IF .CST_ADDR [STATE] EQLU ONLINE ! IF CONTROLLER IS ONLINE 
THEN ! THEN 
BEGIN 
INCR COUNT FROM 8 TO ((DMC_LEN * 2) - 2) BY 2 DO ! CLEAR CTLR‘S DM_COMM STATS 
(.DMC_ADDR + .COUNT) = 0; 


.DMC_ 
INCR OFFSET FROM O TO 3 DO 


BEGIN 
IF .CST_ADDR [.OFFSET + OF_UN, P_STAT) EQLU ONLINE ! IF UNIT IS ONLINE 
THEN THEN LOAD PLATTER ADDRESS 


' 
‘ 
7 Dates {.OFFSET, ALLBIT] = .CST_ADDR [.OFFSET + OF_UN, P_ADDR) 
t 
¢ 


FOR EACH UNIT UNDER CTLR 


! OTHERWISE 
DMC_ADOR [.OFFSET, ALLBIT) = -1; ! DO NOT EXERCISE 
END; ! END UNIT LOOP 
4 -ENTRY_REASON NEQU NEW_PASS : aid RESTART, CONT, OR PWR FAIL 
b $ 


BEGIN 


DM_TIMR [.CTLR] = 0; ! INIT FPT SANITY TIMER 
MX = GET_ENV (.CTLR); ! GET AN MSCP ENVELOPE 
MSCP_ENV [.MX, CONNID] = CID_DUP; ! CONNECTION ID (DUP) 
' 
' 


MSCP_ENV [.MX, OPCODE] = OP_ESP; OPCODE = EXECUTE SUPPLIED PROGRAM 
MSCP_ENV [.MX, DBC_LO) = .CROMP [0]; BYTE COUNT 

MSCP_ENV [.MX, DBUF_O] = CROMP; ! BUFF DESC OF CROM PRIMER 
MSCP_ENV [.MX, OBUF_O] = CROMP + .CROMP [0]; ! OVERLAY BUFF DESC 


ESET TT Be UT UT UN UT UT Be Be Be Be Ud 8 8 GE 0 10090 0 ee ee ee ee ee ee pe ee 


s ] 
IF SEND (.MX) EQLU FAILURE ! ATTEMPT TO SEND. IF FAILURE 





Wa A a i 


FPNMNMNNNUWNNWUWS ePuUU 











CZRCDBO RC25 DISK EXERCISER 


DM EXERCISER ROUTINES 
THEN 


PUT_ENV (.MX); 


END; 
END; 
END; 


IF (C.ENTRY_REASON NEQU CONT) AND 
C.ENTRY_REASON NEQU PWR_FAIL )) 


HEN 
INCR COUNT FROM 0 TO CCMAX_UNITS * TALLY_LEN) - 1) DO 


TALLY [.COUNT] = 0; 


T_FLAG = FALSE; 
END; 


000000G 
000000G 


000000G 
000000G 
000002 
000010 
000000G 


000002 
000062 


000000G 
000000G 
020000 000006 


000006 
000001 


177777 
000003 
000000G 000005 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


:T 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCDS.SRC;17 


HEN 
! RETURN ENVELOPE TO POOL 
! IF START, RESTART, CONT, OR PWR FAIL 


! END - IF CTLR IS ONLINE 
! END CONTROLLER LOOP 
! IF START, RESTART, OR NEW PASS 


! THEN 


! CLEAR ALL STATS 


! CLEAR ONE SECOND TIMING FLAG 
! ROUTINE DM_INIT 


-SBTTL OM.INIT DM EXERCISER ROUTINES 


DM. INIT: JSR 


1$: MOV 


2s: MOV 


3$: MOV 


4$: MOV 
5$: INC 


R1,$SAVES 
CTLR.CNT,RS 
R3 


8$ 

R3,-CSP) 

PC ,SET.CPAR 
CST.ADDR ,RO 
2(RO) 


R 
CST.ADOR ,RO 
| ranma 


6CRO),(R1) 
1(R1) 


5$ 
#-1,(R1) 
R2 
R2,%3 


3$ 
Senet SEAEEAS 


R3,RO 
RO 


CTLR 
CTLR,* 
*#, COUNT 
COUNT, 
*#, COUNT 
COUNT, # 
OFFSET 
OFFSET,«# 


OFFSET,* 


OFFSET 
OFFSET ,* 


CTLR,* 






SEQ 0257 
P 


age 64 
(17) 





3: Routine Size: 
3: Meximum stack 





CZRCDBO RC25 DISK EXERCISER 


DM EXERCISER ROUTINES 


000620' 
000000G 


000104 

000000G 

000002 0000076 
000002 000020G 
001716’ 0000246 
001716’ 000044G 
000000G 


000000G 


000000G 000003 
000000G 000004 


116 words, 


depth per invocation: 


6$: 
78: 


9$: 


10$: 


Routine Base: 
9 words 





14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 
CLR OM. TIMRCRO) 
MOV R3,(SP) 
JSR PC ,GET.ENV 
MOV »R4 
MOV R4,(SP) 
MOV #104,-(SP) 
JSR PC ,BLSMUL 
MOVB #2 ,MSCP.ENV+7(RO) 
MOVB #2 ,MSCP.ENV+20(RO) 
MOV CROMP, MSCP.ENV+24(RO) 
MOV @CROMP .MSCP.ENV+30(RO) 
MOV MSCP. ENV+24(RO), MSCP .ENV+44(RO) 
ADD @CROMP ,MSCP. ENV+44(R 0) 
MOV R4, (SP) 
JSR PC. SEND 
TST RO 
BNE 6$ 
MOV R4,CSP) 
JSR PC ,PUT.ENV 
TST (SP)+ 
TST (SP)+ 
INC RS 
CMP R3,R5 
BLT is 
ENTRY.REASON, @3 
BEQ 10$ 
CMPB ENTRY. REASON, 04 
BEQ 10$ 
CLR RO 
CLR TALLYCRO) 
ADD $2 ,R0 
CMP RO, 1376 
BLE 98 
CLRB T.FLAG 
RTS PC 
$CODE$ + 4412 


VAX-11 Bliss-16 V4.0-579 





SEQ 0258 


Page 65 
USER $1: [AZTEC .CZRCDB JCZRCO3. SRC; 17 (17) 





CTLR,« 


«,MX 
MX,* 


3083 


COUNT 

#( COUNT) 
*#, COUNT 
COUNT, # 
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vo2.0 DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (18) 
3108 1 ROUTINE DM_QUIT = 
3109 1 
3110 1 fe 
3111 1 ! THIS ROUTINE IS CALLED BY THE OM_EXERCISER “EXECUTIVE” (DM_EXER) TO 
3112 1 ! DETERMINE WHETHER OR NOT THE DM EXERCISER SUBTEST SHOULD BE TERMINATED. 
3113 1 ! ITS PURPOSE IS TO EXAMINE THE STATUS OF THE CURRENT PASS TESTING 
3114 1 ! VECTOR (CPT). IF EACH UNIT’S VALUE IN THIS TABLE IS “NO” (INDICATING 
3115 1 ! THAT CURRENT PASS TESTING ON THE UNIT IS COMPLETE), THEN THIS ROUTINE 
3116 1 ! RETURNS A VALUE OF “TRUE” TO ITS CALLER. IF ANY ONE UNIT HAS A VALUE 
aH : ! OF “YES”, THEN “FALSE” IS RETURNED. 
1 ! 
3119 1 ! IMPLICIT INPUTS: 
ores : ! L$UNIT - NUMBER OF UNITS CONFIGURED FOR TEST 
t. 
3122 1 
at 4 BEGIN 
3125 2 INCR UNIT FROM O TO (.L$UNIT - 1) DO ' FOR EACH CONFIGURED UNIT 
3126 2 IF .CPT (.UNIT) EQLU YES ! IF UNIT STILL UNDER TEST 
3127 2 THEN ! THEN 
3128 2 RETURN FALSE; ! TEST NOT FINISHED 
sree 4 RETURN TRUE; ! ALL UNITS DONE 
3131 1 END; ! ROUTINE DM_QUIT 
-SBTTL CM.QUIT DOM EXERCISER ROUTINES 
000000 005000 DOM.QUIT:CLR RO 3; UNIT 
000002 000405 BR 2s 
000004 126027 000000G 000001 1$: CMPB CPTCRO), @1 3; *C(UNIT),« 
000012 001407 BEQ 33 : 
000014 005200 INC RO 3; UNIT 
000016 020037 000000G 2s: CMP RO,LSUNIT ; UNIT,« 
000022 002770 BLT is 
000024 012700 000001 MOV #1,R0 ; 
000030 000207 RTS PC 
000032 005000 3%; CLR RO : 
000034 000207 RTS PC 
s Routine Size: 15 words, Routine Base: $sCODE$ + 4762 


s Maximum stack depth per invocation: 0 words 





wet _ ee eee OU ane 








CZ2RCDS 
vo2.0 


% 


w 
J 
vl 
@ 
PUNAWWN SHH HWE PHL HL SL & Www WwW WWW! 1010 & bb be be be be be be pe he ne pe pe pe 


000000 010146 


0000C2 023737 
000019 001506 





















SEQ 0260 
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DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (19) 


ROUTINE DM_RETPKT : NOVALUE = 


THIS ROUTINE IS CALLED BY DM_EXER TO CHECK FOR AND PROCESS ANY RETURN 
PACKETS THAT HAVE BEEN “SENT” BY THE “ORIVER” PORTION OF THE PROGRAM. 
THE I70 DONE QUEVE (I0DQ) ACTS AS THE LINK BETWEEN THE TWO PROGRAM 
PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH REQUIRE PROCESSING. 


e 

J 

] 

' 

] 

J 

! SotnceSs DM EXERCISER SUBTEST, RETURN PACKETS ORIGINATE FROM TWO 
: s 

: . DUP - DESCRIBING AN END MESSAGE RECEIVED FROM THE RC25 IN 
' RESPONSE TO A HOST COMMAND 

: 2. THE PROGRAM “DRIVER” - DESCRIBING A CONTROLLER ERROR OR 
: COMMAND TIMEOUT. 

& 

BEGIN 


WHILE .IODQ@_IN NEQU .IODQ@_OUT DO 
BEGIN 


DO UNTIL I/0 DONE QUEUE IS EMPTY 


GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 
CALCULATE RETPKT ADDRESS 

SET UP CURRENT CONTROLLER PARAMETERS 

GET UNIT NUMBER OF FIRST UNIT 

IF RETPKT IS FROM PROGRAM “DRIVER” 


RP_INDX = OUT_IODQ (); 

RP_ADDR = RETPKT + (.RP_INDX # RP_LEN # 2); 
SET_CPAR (.RP_ADOR [CTLR]); 

L$LUN = .CST_ADDR [OF_UN, P_UNIT]; 

IF .RP_ADDOR [CONID] EQLU CID_ORIVER 


THEN THEN 
BEGIN 
IF .RP_ADDR [MESTYP] EQLU MT_TIMEOUT ! IF COMMAND TIMEOUT 
THEN ! THEN 
ERRDF (15, EGD_15, EMS_15); ! “MESSAGE RESPONSE TIMEOUT” 
DROP_CTLR (.CCTLR, DU_FATAL); ! DROP CONTROLLER'S UNITS 
CST_ADDR [STATE] = OFFLINE; ! MARK CONTROLLER OFFLINE 


END 
ELSE ! OTHERWISE (RETPKT NOT FROM “DRIVER”) 
BEGIN 
oo {CONID] EQLU CID_DUP ! Bene, IS FROM DUP 
HEN : 
DM_MSG (); ' PROCESS THE END MESSAGE 
END; 
PUT_RETPKT (.RP_INDX); ' RETURN PACKET TO POOL 
END; ' END - UNTIL I/0 DONE QUEVE IS EMPTY 
END; ! ROUTINE DOM_RETPKT 
-SBTTL DOM.RETPKT DM EXERCISER ROUTINES 
DM.RETPKT: 
MOV R1,-(SP) 3 
000000G 000000G 1$: and + iataaeiantaed 3 
$ 











SEQ 0261 
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000012 004737 000000G JSR PC ,OUT.I0DQ ; 3153 
000016 010037 0000006 MOV RO,RP. INDX 
000022 010046 MOV RO, -(SP) s RP.INDX,«# 3154 


000024 012746 000060 MOV #60, -( SP) 

000030 004737 000000G JSR PC ,BL$MUL 

000034 062700 0000006 ADD GRETPKT,RO 

000040 010037 0000006 MOV RO,RP.ADOR 

000044 116016 000002 MOVB 2(RO), (SP) : 
000050 042716 177760 BIC #177760, (SP) 

000054 004737 0000006 JSR PC,SET.CPAR 

000060 0:3700 0000006 MOV CST.ADOR ,RO i 
000064 016001 000006 MOV Se ),R1 


000072 042701 177740 BIC #177740,R1 

000076 010137 000000G MOV R1,L$LUN 

000102 013700 000000G MOV RP .ADDR, RO ; 
000106 126027 000003 000003 CMPB +4 RO), #3 


000116 116000 000002 MOVB 2(RO),RO ; 
000122 042700 177417 BIC #177417,R0 

000126 020027 000100 CMP RO,#100 

000132 001004 BNE 2$ 

000134 104455 TRAP 55 ; 
000136 0C0017 «WORD 17 

000140 0000006 -WORD €EGD.15 

000142 000000G -WORD €EMS.15 

000144 013716 000000G 2s: MOV CCTLR, (SP) ; 
000150 012746 000004 MOV #4,-(SP) 

000154 004737 000000G JSR PC ,DROP.CTLR 

000160 013700 0000006 MOV CST. ADDR ,RO ; 
009164 042760 100000 000002 BIC a 2(RO) 


4s 
000176 126027 000003 000002 3$: CMPB =s-3( RO), #2 

4$ 
000206 004737 000000 JSR PC,DM.MSG ; 
000212 013716 0000006 4s: MOV RP. INDX, (SP) i 
000216 004737 0000006 JSR PC PUT .RETPKT 
000222 022626 CMP (SP)+4(SP)s , 
000226 012601 S$: MOV (SP)+ RA ; 


Routine Size: 77 words, Routine Base: $CODE$ + 5020 
Maximum stack depth per invocation: 5 words 











rr 





{[OP_ESP] : BEGIN IF “EXECUTE SUPPLIED PROGRAM“ 


MX = GET_ENV (.CCTLR); GET AN MSCP ENVELOPE 


MSCP_ENV [.MX, CONNID] = oa es CONNECTION ID (DUP) 


SEQ 0262 
CZRC03 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Face 69 
v02.0 OM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER$1:[AZTEC.CZRCDBICZRCD3. SRC; 2 oe 
3 3182 1 ROUTINE DM_MSG : NOVALUE = s 
Fy 3183 1 <j 
3 3184 1 te 
8 3185 i ! THIS ROUTINE IS CALLED BY DM_RETPKT FOR ALL DUP END MESSAGES RECEIVED 
3 pe : BY THE DM EXERCISER. 
Fy : 
8 3188 1 : THIS ROUTINE FIRST CHECKS THE STATUS CODE OF THE END MESSAGE; IF IT 
8 3189 i ! INDICATES ANYTHING OTHER THAN SUCCESSFUL COMPLETION OF THE COMMAND, 
3 3190 1 : THEN A DEVICE-FATAL ERROR IS DECLARED FOR THE CONTROLLER, AND ALL ITS 
8 3191 1 ! UNITS ARE DROPPED. IF THE STATUS CODE INDICATES SUCCESS, THEN 
3 3192 1 ! PROCESSING IS DEPENDENT ON THE ENDCODE (OPCODE OF THE ASSOCIATED 
3 Sigs i : COMMAND). FOR THE “EXECUTE SUPPLIED PROGRAM” END MESSAGE, THIS ROUTINE 
3 3194 1 ! FORMATS AND SENDS A “SEND DATA” MESSAGE, PROVIDING THE FRONT PANEL TEST 
3 3195 1 : WITH THE HOST ADDRESS OF THE CURRENT CONTROLLER'S DM EXERCISER 
8 3196 1 H COMMUNICATION BLOCK (DM_COMM). 
Fy 3197 1 : 
8 3198 1 : IMPLICIT INPUTS: 
8 3199 1 ! RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
Fy 3200 1 : CCTLR - CURRENT CONTROLLER NUMBER 
3 te 1 ! DMC_ADDR - ADDRESS OF CURRENT CONTROLLER'S DM_COMM AREA 
FY 02 1 !- 
3 3203 1 
3 3204 2 BEGIN 
s 3205 2 
3 3206 2 LOCAL 
8 3207 2 MX : WORD, ' MSCP ENVELOPE INDEX 
3 3208 2 DuP_OP : WORD, ! DUP OPCODE 
3 ed ; UNIT : WORD; ! UNIT NUMBER 
H 10 
8 seik 62 IF (ST_CODE = .RP_ADDR [STATUS]) NEQU ST_SUC ! IF STATUS CODE NOT SUCCESS 
$ 3212 2 THEN ' THEN 
3 3213 3 BEGIN 
3 3214 3 
$ 3215 _ 3 ERRDF (21, EGD_21, EMS_21); ! “DUP COMMAND FAILED” 
3 ty : DROP_CTLR (.CCTLR, DU_FATAL); ! DROP CONTROLLER'S UNITS 
3 21 
3 3218 3 END 
3 3219 2 SE ! OTHERWISE - SUCCESS 
; 3220 3 BEGIN 
$ Jerk 6s 
$ 3222 3 OUP_OP = .RP_ADDR [ENDCOD] AND OP_MSK; ! GET OPCODE 
$ 3223 5 SELECTONEU .DUP_OP OF 
3 3224 3 SET 
; 3 
: 4 
: 4 
: 4 $ 

: 4 H 

s 3230 4 MSCP_ENV [.MX, OPCODE] = OP_SND; ! OPCODE = SEND DATA 

8 3231 4 MSCP_ENV [.MX, DBC_LO) = 2; ' BYTE COUNT 

F 3232 4 MSCP_ENV [.MX, DBUF_0] = DMC_ADDR; ! ADDR OF ADDR OF CTLR‘S DM_COMM AREA 

Fy 3233 4 IF SEND (.MX) EQLU FAILURE ! ATTEMPT TO SEND. IF FAILURE 

3 3234 4 THEN ! THEN 

3 aoe 4 PUT_ENV (.MX); ! RETURN ENVELOPE TO POOL 

; 4 

Fy 3237 : END; ! END - IF “EXECUTE SUPPLIED PROGRAM” 











rr 










SEQ 0263 

CZRCO3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 70 
vo2.0 OM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (20) 
3 oss5 ;: [OP_SND) : DM_TIMR [.CCTLR] = TO_DM; ! IF "SEND DATA”, START FPT SANITY TIMER 
3 
3 3241 3 TES; 
3 3242 3 
8 3243 2 END; ! END - IF STATUS CODE = SUCCESS 
: 3244 2 
8 3245 1 END; ! ROUTINE DM_MSG 

-SBTTL DOM.MSG DM EXERCISER ROUTINES 
000000 010146 OM.MSG: MOV R1,-(SP) ; 
000002 013700 000000G MOV RP .ADDR, RO 3 
000006 016037 000016 0000006 MOV 16(RO),ST.CODE 
000014 001413 BEQ i$ 
000016 104455 TRAP 55 : 
000020 000025 WORD 25 
000022 0000006 WORD €EGD.21 
000024 000000G -WORD €EMS.21 
000026 013746 000000G MOV CCTLR, -(SP) 3 
000032 012746 000004 MOV #4,-(SP) 
000036 004737 000000G JSR PC,DROP.CTLR 
000042 000447 BR 2s : 
000044 013700 000000G 1$: MOV RP .ADDR, RO : 
000050 116000 000014 MOVB 14(RO),RO ; *,DUP.OP 
000054 042700 177600 BIC #177600,RO ; *,DUP.OP 
000060 020027 000002 CMP RO, #2 ; DUP.OP,« 
000064 001040 BNE 3$ 
000066 013746 000000G MOV CCTLR, -(SP) 3 
000072 004737 000000G JSR PC ,GET.ENV 
000076 010001 MOV RO,R1 3; *,MX 
000100 010116 MOV R1,(SP) 3; MX,* 
000102 012746 000104 MOV #104,-(SP) 
000106 004737 000000G JSR PC ,BL$MUL 
000112 112760 000002 000007G MOVB #2 ,MSCP.ENV+7(RO) 
000120 112760 000004 000020G MOVB #4 .MSCP.ENV+20(RO} ; 
000126 012760 000002 000024G MOV #2 ,MSCP.ENV+24(RO) 3 
000134 012760 000000G 000030G MOV #DMC .ADDR,MSCP..ENV+30(RO) 3 
000142 010116 MOV R1i,(SP) 3; MX,* 
000144 004737 000000G JSR PC ,SEND 
000150 005700 TST RO 
000152 001003 BNE 2s 
000154 010116 MOV R1,(SP) ; MX,# 
000156 004737 000000G JSR PC ,PUT.ENV 
000162 022626 2$: CMP (SP)+,(SP)+ ; 
000164 000411 BR 4$ : 
000166 020027 000004 3$: CMP RO, #4 ; DUP.OP,« 
000172 001006 BNE 4$ 
000174 013700 000000G MOV CCTLR,RO 
000200 006300 ASL RO 
000202 012760 000550 000620’ MOV #550,0M. TIMRCRO) 
000210 012601 4$: MOV (SP)+,R1 ; 
000212 009207 RTS PC 
; Routine Size: 70 words, Routine Base: $CODE$ + 5252 


; Maximum stack depth per invocation: 4 words 








cr 








SEQ 0264 
CZRCD3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 71 
vo2.0 OM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 (21) 


ROUTINE DM_ACC = 


* 


THIS ROUTINE IS CALLED BY DM_EXER IN ORDER TO ATTEMPT TO GAIN ACCESS 
TO THE CURRENT CONTROLLER'S DM_COMM AREA. IF ACCESS IS PERMITTED (I.E., 
IF THE FRONT PANEL TEST (FPT) IS NOT CURRENTLY UPDATING DM_COMM 
STATISTICS), THEN THIS ROUTINE RETURNS A VALUE OF “SUCCESS”. OTHERWISE, 
ACCESS IS DENIED AT THIS TIME, AND “FAILURE” IS RETURNED. 


IMPLICIT INPUTS: 
DMC_ADDR - ADDRESS OF CURRENT CONTROLLER’S DM_COMM AREA 


OUTPUTS: 
“SUCCESS” - ACCESS TO DM_COMM IS PERMITTED 
“FAILURE” - ACCESS TO DM_COMM IS DENIED 


BEGIN 


CAL 
RESULT : WORD; ! RESULT OF ACCESS REQUEST 
RESULT = SUCCESS; ASSUME ACCESS WILL BE GAINED 
DMC_ADDR [HOST_ACC] = ALL_ONES; SET HOST ACCESS WORD 
IF .DMC_ADDR [FPT_ACC] NEQU 0 IF FPT HAS ACCESS NOW 
THEN THEN 
BEGIN 


DMC_ADDR [HOST_ACC] = 0; 
RESULT = FAILURE; 


END; 
RETURN .RESULT; 
END; 


WITHDRAW ACCESS REQUEST 
CHANGE RESULT TO FAILURE 


So SO SF GH SO GO GE GH Ge GE GD GF GE GE GS GE GH GE GE GD GE GS GE GH GS GS Ge wD GF & & O&O & & 
w 
z 


N 
tf 
a 
ui 
PO PO P00 OF 8 8 GED 90:90 10: 10. 10.70 10. 10 Fe ee pe ee ee ee pe pe pe 


ROUTINE DM_ACC 


-SBTTL OM.ACC DM EXERCISER ROUTINES 
900000 004137 000000G DM.ACC: JSR R1,$SAVE2 : 3246 
000004 012702 000001 MOV #1,R2 ; *,RESULT 3268 
000010 013700 000000G MOV DMC. ADDR ,RO ; 3269 
000014 012760 177777 000062 MOV #-1,62(RO) 
000022 010001 MOV RO,R1 ; DMC.ADOR,« 
000024 005761 000060 TST 60(R1) ‘ 
000030 001403 BEQ 1$ 
000032 005060 000062 CLR 62(RO) 
000036 005002 CLR R2 
000040 010200 1$: MOV R2,RO 
000042 000207 RTS PC 


; Routine Size: 18 words, Routine Base: ‘$CODE$ + 5466 
; Maximum stack depth per invocation: 4 words 


RESULT 
RESULT ,# 




















CZRCD3 CZRCOBO RC25 DISK EXERCISER 
vo2.0 OM EXERCISER ROUTINES 


ROUTINE DM_TALLY : NOVALUE = 


> 


DM_COMM ARE THEN RESET TO 0. 


CURRENT PASS. 
IMPLICIT INPUTS: 


ST_PTR = .DMC_ADDR + 8; 
INCR OFFSET FROM O TO 3 DO 
BEGIN 


IF .OMC_ADDR [.OFFSET, 0, 16, 1] GEQ 0 
THEN 

BEGIN 

SET_UPAR (.OFFSET + OF_UN); 


UPD_IOC (T_ADDR [SEEK_LOJ, ..ST_PTR); 
-ST_PTR = 0; 
ST_PTR = .ST_PTR + 2; 


NBXFR = ..ST_PTR; 

UPD_IOC (T_ADDR [READ_LO), ..ST_PTR); 
UPD_DMBC (T_ADDR [BR_LOJ, ..ST_PTR); 
-ST_PTR = 0; 

ST_PTR = .ST_PTR + 2; 


NBXFR = .NBXFR + ..ST_PTR; 

UPD_IOC (T_ADDR [WRIT_LOJ, ..ST_PTR); 
UPD_DMBC (T_ADDR [BW_LOJ, ..ST_PTR); 
-ST_PTR = 0; 

ST_PTR = .ST_PTR + 2; 


T_ADDR [ER_SFT] = .T_ADDR [ER_SFT] + 
-ST_PTR = 0; 
ST_PTR = .ST_PTR + 2; 


HARD_ERR (..ST_PTR); 


w 
w 
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THIS ROUTINE IS CALLED FROM DM_EXER AFTER ACCESS HAS BEEN GAINED TO 
THE CURRENT CONTROLLER'S DM_COMM AREA. 1TS PURPOSE IS TO EXTRACT THE 
STATISTICAL VALUES STORED THERE BY THE FRONT PANEL TEST (EXECUTING IN 
THE OM), AND TO ADD THESE VALUES TO THE HOST-KEPT STATS. THE STATS IN 


AFTER UPDATING THE HOST STATS, THE NUMBER OF HARD ERRORS AND THE NUMBER 
OF MBYTES TRANSFERRED THUS FAR FOR EACH UNIT IS CHECKED AGAINST THE 
LIMITS SPECIFIED IN THE SW P-TABLE. IF THE HARD ERROR LIMIT HAS BEEN 
REACHED, THEN THE UNIT IS DROPPED FROM ALL TESTING. IF THE TRANSFER 
LIMIT HAS BEEN REACHED, THEN THE UNIT IS SIMPLY REMOVED FROM THE 


DMC_ADDR - ADDRESS OF THE CURRENT CONTROLLER'S DM_COMM AREA 


! STATISTICS POINTER IN DM_COMM 


! NUMBER OF BLOCKS TRANSFERRED 


Tm 


POINTS TO STATS FOR FIRST UNIT 
FOR EACH UNIT 


IF UNIT IS BEING DM-EXERCISED 
THEN 


SET UP UNIT-RELATED PARAMETERS 


UPDATE NO. OF SEEKS 
RESET STAT TO 0 
ADVANCE DM_COMM POINTER 


NUMBER OF BLOCKS READ (1 BLOCK PER READ) 


UPDATE NO. OF READS 


UPDATE NO. OF BYTES READ, CHECK FOR OVERFLOW 


RESET STAT TO 0 
ADVANCE DM_COMM POINTER 


ADD NUMBER OF BLOCKS WRITTEN (1 BLOCK PER WRITE) 


UPDATE NO. OF WRITES 


UPDATE NO. OF BYTES WRITTEN, CHECK FOR OVERFLOW 


RESET STAT TO 0 
ADVANCE DM_COMM POINTER 


PTR; ! UPDATE NO. OF DM SOFT ERRORS 
RESET STAT TO 0 
ADVANCE DM_COMM POINTER 


UPDATE HRD ERR CNT + CHK FOR LIMIT 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB JCZRCO3.SRC;17 





CZRCO3 
vo2.0 


oF 8 Se OF Ge Ge GF GF OF Ge Ge Ge os Os Os SK es ae os OF OF os os os os os 
ed 
: 
w 
Ww 
es 
wo 


w 

w 

uw 

- 
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000000 004137 


000004 013701 
000010 062701 
000014 005002 
000016 010200 
000020 006300 
000022 063700 
000026 005710 
000030 002520 
000032 010246 
000034 062716 
000040 004737 
000044 013716 
000050 062716 
000054 011146 
000056 004737 
000062 005021 
000064 011103 
000066 013716 
000072 010346 
000074 004737 
000100 013716 
000104 062716 
000110 011146 
000112 004737 
000116 005021 
000120 061103 
000122 013716 
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! RESET STAT TO 0 


CZRCDBO RC25 DISK EXERCISER 
DM EXERCISER ROUTINES 


-ST_PTR = 0; 
ST_PTR = .ST_PTR + 2; 


IF .NBXFR NEQU O 
THEN 
BEGIN 
IF MANUAL ! IF ATTENDED 
THEN ! THEN 
PRINTF (MSG_08, .NBXFR, .L$LUN, .CPLAT); 
DM_TIMR [.CCTLR] = TO_DM; 


! THEN 


END; 
XFR_CHK (); ! CHECK IF TRANSFER LIMIT REACHED 
END ! END - IF UNIT IS BEING DM-EXERCISED 
ELSE ! OTHERWISE 
ST_PTR = .ST_PTR + 10; ! ADVANCE DM_COMM POINTER TO NEXT BLOCK 
END; ! UNIT LOOP 
DMC_ADOR [HOST_ACC] = 0; ! TELL FPT THAT WE ARE LEAVING 
END; ! ROUTINE DM_TALLY 
-SBTTL OM.TALLY DM EXERCISER ROUTINES 
000000G DM.TALLY: 
JSR R1, $SAVE3 ; 
000000G MOV DMC.ADDR,R1 ; *,ST.PTR 
000010 ADD #10,R1 ; *,ST.PTR 
CLR R2 ; OFFSET 
1$: MOV R2,RO0 ; OFFSET,« 
ASL RO 
000000G ADD DMC. ADDR ,RO 
TST CRO) 
BLT 4$ 
MOV R2,-(SP) ; OFFSET,«* 
000003 ADD #3,(SP) 
000000G JSR PC,SET.UPAR 
000000G MOV T.ADOR (SP) F 
000010 ADD #10, (SP) 
MOV (R1),-CSP) ; ST.PTR,* 
000000G JSR PC,UPD.IOC 
CLR (R1)+ ; ST.PTR 
MOV CR1),R3 ; ST.PTR,NBXFR 
000000G MOV T.ADOR,CSP) 3 
MOV R3,-(SP) 
000000G JSR PC,UPD.IOC 
000000G MOV T. ADDR ,( SP) 3 
000014 ADD #14, (SP) 
MOV (R1),-CSP) :; ST.PTR,« 
000000V JSR PC ,UPD.DMBC 
CLR (R1i)+ ; ST.PTR 
ADD (R1),R3 ; ST.PTR,NBXFR 
000000G MOV T.ADOR, (SP) 3 





! ADVANCE DM_COMM POINTER 
! IF A COMPLETE PASS HAS BEEN MADE 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 


SEQ 0266 
Page 73 
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! "XXXXX. BLOCKS TRANSFERRED ON UNIT XX. (PLATTER xx 
! RESET FPT SANITY TIMER 


3282 
3308 


3309 


3312 


3316 


3318 


3319 
3322 
3323 


3324 


3325 















SEQ 0267 
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vo2.0 DOM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB ICZRCD3. SRC; 17 


000126 062716 000004 ADD #4,(SP) 

000132 011146 MOV (R1),-CSP) : ST.PTR,«* 
000134 004737 000000G JSR PC ,UPD.IOC 

000140 013716 000000G MOV T.ADOR ,C SP) 3 

000144 062716 000022 ADD #22,(SP) 

000150 011146 MOV (R1),-CSP) ; ST.PTR,«# 
000152 004737 000000V JSR PC ,UPD .OMBC 

000156 005021 CLR (R1)+ : ST.PTR 
000160 013700 000000G MOV T. ADDR ,RO ; 

000164 061160 000034 ADD (R1),34CRO) : ST.PTR,« 
000170 005021 CLR (R1)+ : ST.PTR 
000172 011116 MOV (R1),(SP) 3; ST.PTR,«* 
000174 004737 000000G JSR PC ,HARD.ERR 

000200 005021 CLR (R1i)+ ; ST.PTR 
000202 005703 TST R3 ; NBXFR 
000204 001425 BEQ 3$ 

000206 104450 TRAP 50 : 

000210 103015 BHIS 2s 

000212 013716 000000G MOV CPLAT, (SP) PF 

000216 013746 9000006 MOV L$LUN, -C(SP) 

000222 010346 MOV R3,-CSP) ; NBXFR,« 
000224 012746 000000G MOV #MSG .08, -C SP) 

000236 012746 000004 MOV #4,-C(SP> 

000234 010600 MOV SP ,RO ; SP,* 
000236 104417 TRAP 17 

000240 062706 000010 ADD #10, SP 

000244 013700 000000G 2s: MOV CCTLR,RO ; 

000250 006300 ASL RO . 

000252 012760 000550 000620' MOV #550 ,DM. TIMRCRO) 

000260 004737 000000G 3$: JSR PC ,XFR.CHK 3 

000264 062706 000014 ADD #14,SP i 

000270 000402 BR 5$ ; 

000272 062701 000012 4$: ADD #12,R1 ; *,ST.PTR 
000276 005202 5$: INC R2 3; OFFSET 
000300 020227 000003 CMP R2, #3 ; OFFSET,« 
000304 003644 BLE 1$ 

000306 013700 000000G MOV DMC. ADDR ,RO 3 

000312 005060 000062 CLR 62(RO) 

000316 000207 RTS PC 3 

; Routine Size: 104 words, Routine Base: $CODE$ + 5532 


3 Maximum stack depth per invocation: 16 words 








w 
w 
@ 
= 
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000000 004137 


000004 016601 
000010 005002 
000012 000411 
000014 062711 
000020 021127 
000024 103404 
000026 010146 
000030 004737 
000034 005726 
000036 005202 
000040 020266 
000044 003763 
000046 010146 
000050 004737 
000054 005726 
000056 000207 








; Routine Size: 
; Maximum stack depth per invocation: 5 words 










SEQ 0268 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 75 
DM EXERCISER ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (23) 
ROUTINE UPD_OMBC CADDR, COUNT) : NOVALUE = 

Ye 

$ THIS ROUTINE IS CALLED FROM DM_TALLY TO UPDATE THE TOTAL NUMBER OF 

i BYTES READ OR WRITTEN BY THE FRONT PANEL TEST (FPT) FOR THE CURRENT 

H UNIT. IT IS ASSUMED THAT EACH READ OR WRITE OPERATION PERFORMED BY THE 

: FPT IS EXACTLY ONE BLOCK (512 BYTES) LONG. (A SIMPLE MULTIPLICATION 

: Fad * BLK_SIZE) IS NOT FEASIBLE BECAUSE A 16-BIT OVERFLOW WOULD 

8 UR). 

t 

; INPUTS: 

' ADDR - TALLY ADDRESS OF THE LOW-ORDER FIELD OF THE NUMBER OF 

! BYTES READ OR WRITTEN FOR THE CURRENT UNIT 

$ COUNT - bane NUMBER OF READ OR WRITE OPERATIONS PERFORMED BY THE 

' 

'. 


BEGIN 
INCR I FROM 1 TO .COUNT DO 
BEGIN 


FOR EACH FPT I/0 OPERATION 


UPDATE TOTAL NO. OF BYTES (LOW ORDER) 
IF LOW ORDER VALUE IS APPROACHING OVERFLOW 


THEN 
REDUCE LOW ORDER WORD, UPDATE HIGH ORDER WORDS 


-ADDR = ..ADDR + BLK_SIZE; 
IF ..ADDR GEQU 50000 
THEN 


OVF_CHK (.ADDR); 


END; ! END - I/0 OPERATION COUNT LOOP 
OVF_CHK (.ADDR); ' ONE MORE TIME 
END; ! ROUTINE UPD_DMBC 
. -SBTTL UPD.OMBC DM EXERCISER ROUTINES 
000000G UPD.DMBC: 
JSR R1,$SAVE2 ; 
000012 MOV 12(SP),R1 ; ADOR,« 
CLR R2 | 
BR 2$ 
001000 1$: ADD #1000, (R1) F 
141520 CMP (Ri), #141520 F 
BLO 2$ 
MOV R1i,-(SP) 3 
000000G JSR PC ,OVF .CHK 
TST (SP)+ 
2s: INC R2 ; I 
000010 CMP R2,10(SP) ; I,COUNT 
BLE 1$ 
MOV Ri,-(SP) PF 
000000G JSR PC ,OVF .CHK 
TST (SP)+ 3 
RTS PC 3 
24 words, Routine Base: ‘$CODE$ + 6052 
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SEQ 0269 
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ROUTINE DM_TIME : NOVALUE = 


+ 
THIS ROUTINE IS CALLED ONCE PER SECOND FOR EACH CONFIGURED CONTROLLER 
BY THE DM EXERCISER “EXECUTIVE” (DM_EXER). ITS PURPOSE IS TO MAINTAIN 
THE SANITY TIMER ON THE FRONT PANEL TEST (FPT) WHICH IS EXECUTING IN 
THE DIAGNOSTIC MACHINE (0M). 


' 
’ 

f 

' 

3 

a 

: THE FPT IS EXPECTED TO PROVIDE THE HOST WITH A NEW SET OF OPERATING 
: STATISTICS IN DM_COMM AT REGULAR INTERVALS. EACH CONTROLLER HAS AN 
: ENTRY IN DM_TIMR WHICH CONTAINS THE REMAINING TIME (IN SECONDS) TO 
: RECEIVE A NEW SET OF STATS. IF THE TIMER FOR THE CURRENT CONTROLLER 
: IS ACTIVE, THEN THIS ROUTINE DECREMENTS THE TIMER, AND DECLARES AN 
: ERROR IF THE TIMER REACHES ZERO. 

5 

: 

Hl 

' 

t 


INPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 


BEGIN 
IF .OM_TIMR [.CCTLR] NEQU 0 ! IF TIMER IS ACTIVE 
THEN ! THEN 
BEGIN 
DM_TIMR [.CCTLR] = .DM_TIMR [.CCTLR]) - 1; ! DECREMENT 
IF .DM_TIMR [.CCTLR] EQLU 0 ! IF TIME HAS EXPIRED 
THEN ! THEN 
BEGIN 
L$UNIT = .CST_ADDR [OF_UN, P_UNIT]); ! GET OS UNIT NUMBER OF FIRST PLATTER UNDER CONTROLLER 
ERRDF (22, EGD_22, EMS_22); ! “DM EXERCISER TIMEOUT” 
DROP_CTLR (.CCTLR, DU_FATAL); ! DROP ALL CONTROLLER’S UNITS 
CST_ADDR [STATE] = OFFLINE; ! MARK CONTROLLER OFFLINE 
END; 
END; 
END; ! ROUTINE DM_TIME 
-SBTTL OM.TIME DM EXERCISER ROUTINES 
DM. TIME: MOV R1,-(SP) 3 
000000G MOV CCTLR,RO 3 
ASL RO 
000620' ADD #DM. TIMR,RO 
TST CRO) 
BEQ 1$ 
DEC CRO) ; 
BNE i$ F 
000000G MOV CST.ADDR,RO 3 
000006 MOV 6(RO),R1 
SWAB Ri 
177740 BIC #177740,R1 
000000G MOV R1,LSUNIT 





-— 





CZRCOBO RC25 DISK EXERCISER 
OM EXERCISER ROUTINES 


022626 
012601 1$: 
000207 

3; Routine Size: 37 words, Routine Base: 


s Maximum stack depth per invocation: 4 words 
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55 

26 

EGD.22 

EMS.22 

CCTLR, -(SP) 
#4,-(SP) 

PC ,.DROP.CTLR 
CST. ADOR ,RO 
#100000, 2(RO) 


(SP)+,(SP)+ 
(SP)+,R1 
PC 


$CODE$ + 6132 
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SEQ 0271 
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CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41: age 
33:42 USER$1:(AZTEC.CZRCOB JCZRCD3. SRC; 17 (25) 


MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09: 
SSBTTL ‘MULTI-DRIVE SUBTEST ROUTINES’ 
ROUTINE MULTI_DRIVE : NOVALUE = 









* 


THIS SUBTEST IS THE MOST SIGNIFICANT PART OF THE ENTIRE PROGRAM. THE 
MULTI-ORIVE SUBTEST IS A HOST-CONTROLLED EXERCISER DESIGNED TO GIVE THE 
USER AN INDICATION OF HOW ONE OR SEVERAL RC25 DRIVES WOULD PERFORM IN 
AN OPERATING SYSTEM ENVIRONMENT. 


THIS ROUTINE ACTS AS AN “EXECUTIVE” TO THE WHOLE PROCESS. AFTER 
INVOKING MD_INIT TO INITIALIZE MULTI-DRIVE SUBTEST DATA, THIS ROUTINE 
ENTERS A LOOP WHICH ISSUES QIOS TO ALL ACTIVE CONTROLLERS AND PROCESSES 
ANY RESPONSES. IN ADDITION, ALL OUTSTANDING COMMANDS ARE TIMED IN 
DRV_TIMCHK WHICH IS INVOKED EVERY SECOND. NORMAL TERMINATION OF THIS 
LOOP OCCURS WHEN QIOS ARE NO LONGER BEING ISSUED, AND ALL OUTSTANDING 
QIOS HAVE COMPLETED. 


BEGIN 
IF MANUAL ! IF ATTENDED 
THEN ! THEN 
PRINTF (MSG_05); ! “MULTI-DRIVE SUBTEST START” 
MD_INIT (); ! INIT MULTI-DRIVE SUBTEST DATA 
! START OF EXECUTIVE LOOP 
BEGIN 
a > ~ FROM 0 TO (.CTLR_CNT - 1) DO ! FOR EACH CONTROLLER 


SET UP CURRENT CONTROLLER PARAMETERS 


SET_CPAR (.CTLR); 
IF 0.K. TO ISSVE QIOCS) TO THIS CONTROLLER 


IF QIO_0K () EQLU TRUE 





THEN ! THEN 
BEGIN 
QIO_GEN (); ! GENERATE 1 OR 2 QIOS 
IF .MX1 GEQ 0 ! IF SUCCESS ON FIRST QIO 
HEN ! THEN 
BEGIN 
IF SEND (.MX1) EQLU SUCCESS ! ATTEMPT TO SEND IT. IF SUCCESS 
THEN ! THEN 
QIO (.CTLR) = .QI0 (.CTLR) + 1 ! INCR OUTSTANDING QIO COUNT 
€ ! OTHERWISE 
PUT_ENV (.MX1); ! RETURN ENVELOPE TO POOL 
END; 
IF .MX2 GEQ 0 ! IF SUCCESS ON SECOND QIO 
THEN ! THEN 
BEGIN 
: ae (.MX2) EQLU SUCCESS : ah al TO SEND IT. IF SUCCESS 
QIO (.CTLR} = .QIO [.CTLR] + 1 ' INCR OUTSTANDING QIO COUNT ‘ 
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CZRCDBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


IF .OCT_ADDR [STAT] EQLU ONLINE 
THEN 


INT_PROC (); 
END; 


PROC_RETPKT (); 


IF .T_FLAG EQLU TRUE 
THEN 


3 
DRV_TIMCHK (); 


UNTIL MD_QUIT (); 


END; 


000000G 


ELSE 
PUT_ENV (.MX2); 


! UNTIL ALL UNITS ARE FINISHED 
! ROUTINE MULTI_DORIVE 


-SBTTL MULTI.ORIVE MULTI-DRIVE SUBTEST ROUTINES 


MULTI.DRIVE: 


18: 
2s: 


4$; 
58: 








SEQ 0272 
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! OTHERWISE 
! RETURN ENVELOPE TO POOL 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB ICZRCD3. SRC; 17 








! 0.K. TO ISSUE QIOCS) 

! IF CONTROLLER IS ONLINE 
THEN 

! PROCESS ANY INTERRUPTS 

! CONTROLLER LOOP 


! PROCESS ANY RETURN PACKETS 
g c- SECOND HAS ELAPSED 
' 


! CHECK OUTSTANDING COMMAND TIMERS 
! EXECUTIVE PROCESSING LOOP 











R1, $SAVE2 ; 
50 




















7 
(SP)+,(SP)-+ 
PC .MD. INIT 3 
CTLR.CNT,R2 3 
R1 ; CTLR 
9% 
R1,-(SP) : CTLR,«s 
PC,.SET.CPAR 
PC ,QI0.0K 3 
RO,@1 
7$ 
PC ,QI0.GEN 3 
MX1,R0 3 
53 
RO,(SP) 3 
PC, SEND 
P0,¢1 
as 
QIOCR1) s #(CTLR) 
53 ; 
MX1,(SP) 3 
PC ,PUT .ENV 
+ a 8 

3 





———————_L__ SS SS 

















SEQ 0273 
CZRCD3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 81 
voe2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (25) 
000134 010016 MOV RO,(SP) ; 3491 
000136 004737 000000G JSR PC ,.SEND 
000142 020027 000001 CMP RO, 1 
000146 001003 BNE 6$ 
000150 105261 0000006 INCB QIOCR1) s *(CTLR) 3493 
000154 000404 BR 7$ i 3491 
000156 013716 000604’ 63: MOV MX2, (SP) ; 3495 
000162 004737 000000G JSR PC PUT .ENV 
000166 005777 000000G 78: TST @0CT. ADDR ; 3501 
000172 100002 BPL 8$ 
000174 004737 000000V JSR PC, INT.PROC 3 3503 
000200 005726 8$: TST (SP)+ : 3467 
000202 005201 INC R1 ; CTLR 3466 
000204 020102 9s: cmp R1L,R2 ; CTLR,«# 
000206 002715 BLT 33 
000210 004737 000000V JSR PC ,PROC.RETPKT ; 3507 
000214 123727 000000G 000001 CMPB T.FLAG, #1 ; 3508 
000222 001002 BNE 10$ 
000224 004737 000000V JSR PC, ORV. TIMCHK : 3510 
000230 004737 000000V 10$: JSR PC,MD.QUIT ; 3514 
000234 006000 ROR RO 
000236 103275 BCC 23 
000240 000207 RTS PC ; 3439 





Routine Size: 81 words, Routine Base: $CODE$ + 6244 
Maximum stack depth per invocation: 7 words 





CZ2RCO3 
vo2.0 


3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 





OSS SS SSCS SSSA eenenen oboe Gatseeeee 
w 
uw 
w 
@ 
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004137 
004737 
005002 
153702 
029227 
001441 



















SEQ 0274 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 82 
MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCO3.SRC;17 (26) 


ROUTINE MD_INIT : NOVALUE = 


* 


THIS ROUTINE IS CALLED BY ROUTINE MULTI_ORIVE TO INITIALIZE DATA ITEMS 
USED BY THE MULTI-DRIVE SUBTEST. 


BEGIN 
INIT_IO_BUFF (); ! PARTITION FREE MEMORY INTO I/O BUFFERS 
IF .ENTRY_REASON NEQU NEW_PASS ! IF START, RESTART, CONT, PWR FAIL 
THEN ! THEN 
BEGIN 
INCR UNIT FROM 0 TO (MAX_UNITS - 1) DO ! FOR EACH UNIT 
BEGIN 
IF (C.ENTRY_REASON LEQU RESTART) OR ! IF START OR RESTART OR 
(.BST [.UNIT, TRACK] LSSU .SWP_STRACK) OR ! IF USER CHANGED TRACK LIMITS 
(.BST [.UNIT, TRACK) GTRU .SWP_ETRACK)) 
THEN ! THEN 
BEGIN 
BST [.UNIT, TRACK] = .SWP_STRACK; ! INITIALIZE BLOCK SEQUENCE TABLE 
BST [.UNIT, SECTOR) = 0; H CUSED ONLY FOR SEQUENTIAL LBN MODE) 
DPST [.UNIT] = DP_CNT; ! INITIALIZE DATA PATTERN SEQUENCE TABLE 
H (USED ONLY IF “PATTERN 0” WAS SELECTED) 
END; 
END; ' END UNIT LOOP 
END; ! END - IF START, RESTART, CONT, PWR FAIL 
IF CC. ENTRY_REASON NEQU CONT) AND ! IF START, RESTART, OR NEW PASS 
(.ENTRY_REASON NEQGU PWR_FAIL )) 
THEN ! THEN 
INCR COUNT FROM O TO ((MAX_UNITS * TALLY_LEN) - 1) DO ' CLEAR ALL STATS 


TALLY [.COUNT] = 0; 
INCR COUNT FROM O TO (C(MAX_CTLR « RPS_LEN) - 1) 00 ! INITIALIZE RETPKT 
RP_SAVE [.COUNT] = -1; SAVE AREA 


INCR COUNT FROM O TO (.NUM_BUFF - 1) DO INITIALIZE I/0 BUFFER ALLOCATION 
BUFF _OWN [.COUNT] = -1; Hy TABLE 

IF .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 

THEN ! THEN 
MMRO = 1; ! ENABLE RELOCATION 

T_FLAG = FALSE; ! FLAG TO CALL DRV_TIMCHK EVERY SECOND 


END; ! ROUTINE MD_INIT 


-SBTTL MD.INIT MULTI-DRIVE SUBTEST ROUTINES 
000000G MD.INIT: JSR R1,$SAVE2 i 
000000V JSR PC, INIT. 10. BUFF i 

CLR R2 : 
000000G BISB ENTRY.REASON,R2 
000005 CMP R2,45 

BEQ 4s 


LO rr rh rrr cr rrr gee -<lhlleseeeeeee 





OR EER RS SE ee 











SEQ 0275 
CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 83 
vo02.0 MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (26) 
000024 095001 CLR R1 ; UNIT 3531 
000026 020227 000002 1$: CMP R2,42 3 3534 
000032 101416 BLOS 2$ 
000034 010100 MOV R1,RO0 ; UNIT,«# 3535 
000036 006300 ASL RO 
000040 006300 ASL RO 
000042 026037 000442’ 000000G CMP BST+2(RO),SWP. STRACK 
000050 103407 BLO 2s 
000052 010100 MOV R1,R0 ; UNIT,«# 3536 
000054 006300 ASL RO 
000056 006300 ASL RO 
000060 026037 000442' 000000G CMP BST+2(RO), SWP.ETRACK 
000066 101413 BLOS 3$ 
000070 010100 2s: MOV R1,RO ; UNIT,# 3540 
000072 006300 ASL RO 
000074 006300 ASL RO 
000076 013760 000000G 000442: MOV SWP. STRACK ,BST+2(RO) 
000104 005060 000440' CLR BSTCRO) ; 3541 
000110 112761 000025 000540: MOVB #25,DPSTC(R1) ; *,*CUNIT) 3542 
000116 005201 3$: INC Ri ; UNIT 3531 
000120 020127 000017 CMP R1,417 ; UNIT,# 
000124 003740 BLE i$ 
000126 020227 000003 4$: CMP R2,#3 3 3550 
000132 0C1413 BEQ 6$ 
000134 020227 000004 CMP R2,44 3 3551 
000140 001410 BEQ 6$ 
000142 005000 CLR RO ; COUNT 3553 
000144 005060 000000G 5$: CLR TALLYCRO) ; *(COUNT) 3554 
000150 062700 000002 ADD #2 ,RO0 ; *,COUNT 3553 
000154 020027 001376 CMP RO, #1376 ; COUNT,«# 
009160 003771 BLE S$ 
000162 005000 6$: CLR RO 3; COUNT 3555 
000164 112760 000377 000000G 7$: MOVB #377 ,RP.SAVECRO) ; *,*C(COUNT) 3556 
000172 005200 INC RO ; COUNT 3555 
000174 020027 000037 CMP RO, #37 ; COUNT,* 
000200 003771 BLE 7$ 
000202 005000 CLR RO 3; COUNT 3557 
000204 000404 BR 9$ 
000206 112760 000377 000000G 8$: MOVB #377 ,BUFF .OWNCRO) ; *,*(COUNT) 
000214 005200 INC RO ; COUNT 
000216 020037 000000G 9$: cmMP RO,NUM. BUFF ; COUNT,« 
000222 002771 BLT 8$ 
000224 132737 000001 000000G BITB #1,MEM.MGMT ; 
000232 001403 BEQ 10$ 
000234 012737 000001 177572 MOV #1,8¢177572 3 
000242 105037 000000G 10$: CLRB T.FLAG 3 
000246 000207 RTS PC ; 
; Routine Size: 84 words, Routine Base: $CODE$ + 6506 


; Maximum stack depth per invocation: 4 words 





nee 








SET MEMORY MANAGEMENT FLAG 

GET TOP OF FREE MEMORY 

IF GREATER THAN 124K 

THEN 

SET LIMIT AT 124K 

NO. OF 32-WORD BLOCKS PER BUFFER 


MEM_MGMT = YES; 

HIMEM = .L$HIMEM; 

IF .HIMEM GTRU #0‘ 7577' 
THEN 


HIMEM = #0'7577'; 
BLKS_PER_BUFF = (.HIMEM - #0'1777') / .NUM_BUFF; 
IF .BLKS_PER_BUFF GTRU #0’ 200’ 
THEN 
BLKS_PER_BUFF = #0'200'; 
BUFF _SIZE = .BLKS_PER_BUFF « 64; 
BD_LOW = 0; 
BD_HIGH = 1; 


MAX BUFFER SIZE = 4K 
BUFFER SIZE IN BYTES 
BUFFERS START AT 32K 


SEQ 0276 
CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 84 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOBICZRCD3.SRC;17 (27) 
3 3565 1 ROUTINE INIT_IO_BUFF : NOVALUE = 
s 3566 1 
3 3567 1 ts 
8 3568 1 ! THIS ROUTINE IS CALLED BY MD_INIT WHEN THE MULTI-DRIVE SUBTEST IS FIRST 
3 3569 1 ! STARTED. IT IS RESPONSIBLE FOR PARTITIONING FREE MEMORY INTO A 
3 3570 1 H COLLECTION OF I/0 BUFFERS. THE NUMBER OF I/O BUFFERS IS BASED ON THE 
3 eae : ! NUMBER OF CONTROLLERS CONFIGURED FOR TESTING. 
. ' 
3 Sve i H IF THIS HOST PROCESSOR HAS MORE THAN 28K (32K) OF MEMORY, THEN ALL 
3 3574 1 ! AVAILABLE MEMORY OVER 32K (BUT UNDER 124K) IS DIVIDED EQUALLY AMONG 
3 3575 1 ! THE NUMBER OF I/0 BUFFERS (4K PER BUFFER MAXIMUM). MEMORY MANAGEMENT 
F 3576 1 ! REGISTERS ARE SET UP TO MAP ALL VIRTUAL ADDRESSES TO THE SAME PHYSICAL 
8 3577 1 : ADDRESSES (FOR NOW). IF THE HOST PROCESSOR HAS ONLY 28K, THEN THE 
8 3578 1 : AMOUNT OF FREE MEMORY UNDER 28K IS SIMILARLY DIVIDED (WITHOUT MEMORY 
$ dag 1 ! MANAGEMENT ). 
Fy 1 : 
8 3581 1 ! ONCE THE STARTING ADDRESS OF FREE MEMORY IS DETERMINED ALONG WITH THE 
8 3582 1 ! BUFFER SIZE, THE BUFFER DESCRIPTOR TABLE (BUFF_DESC) IS INITIALIZED. 
3 3583 1 ! THIS TABLE REMAINS FIXED THROUGHOUT THE MULTI-DRIVE SUBTEST. IT 
8 3584 1 ! PROVIDES THE TWO-WORD BUFFER DESCRIPTORS USED IN MSCP COMMAND 
F 3585 1 ! ENVELOPES. 
3 3586 1 : 
: 3587 1 i IMPLICIT INPUTS: 
s 3588 1 ! CTLR_CNT - THE NUMBER OF CONTROLLERS CONFIGURED 
3 3589 1 : L$HIMEM - TOP OF FREE MEMORY CIN PAR FORMAT) 
8 3590 i ! MEM_SIZE - SIZE CIN WORDS) OF FREE MEMORY 
3 3591 1 : FREE_MEM_ADDR - START OF FREE MEMORY 
s 3592 1 !- 
8 3593 1 
$ 3594 2 BEGIN 
$ 3595 2 
8 3596 2 LOCAL 
3 3597 2 HIMEM : WORD, ! TOP OF FREE MEMORY CIN PAR FORMAT) 
8 3598 2 BLKS_PER_BUFF : WORD, ! NO. OF 32-WORD BLOCKS PER BUFFER 
8 3599 2 BD_LOW : WORD, ! BUFFER DESCRIPTOR (LO-ORLER) 
8 3600 2 BD_HIGH : WORD, ! BUFFER DESCRIPTOR CHI-ORDER) 
3 3601 2 TEMP : WORD, 
s a 2 KTPDR : WORD; ! PDR INITIALIZATION WORD 
: 360 2 
s 3604 2 NUM_BUFF = .CTLR_CNT *« QIO_PER_CTLR; ' CALCULATE NO. OF I/0 BUFFERS NEEDED 
3 3605 2 MEM_MGMT = NO; ! ASSUME NO MEMORY MANAGEMENT 
3 3606 2 IF .L$HIMEM GTRU #0‘ 2000' ! IF MORE THAN 32K OF MEMORY 
3 3607 2 THEN ! THEN 
; 3608 : BEGIN 
8 3 
8 3 
H 3 
H 3 
H 3 
H 3 
Fy 3 
H 3 
3 3 
H 3 
Fy 3 
H 3 














a ec 





SEQ 0277 

CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 85 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (27) 
3 3622 3 
3 3623 3 END 
8 3624 2 ELSE ! OTHERWISE - ONLY 28K OF MEMORY 
3 3625 3 BEGIN 
ry 3626 3 
3 3627 3 BUFF _SIZE = ((.MEM_SIZE * 2) / .NUM_BUFF) AND #0'177776'; 
3 3628 3 BD_LOW = .FREE_MEM_ADDR; ! START OF BUFFER SPACE 
$ 3629 3 BD_HIGH = 0; 
3 3630 3 
8 3631 2 END; 
3 3632 2 
3 3633 2 INCR J FROM O TO (.NUM_BUFF - 1) DO ' FOR EACH BUFF_DESC ENTRY 
3 3634 3 BEGIN 
3 3635 3 
: 3636 3 BUFF _DESC [.J, BD_LO) = .BD_LOW; ' LOAD LOW-ORDER WORD 
8 3637 3 BUFF _DESC [.J, BD_HI] = .BD_HIGH; ' LOAD HIGH-ORDER WORD 
8 3638 3 TEMP = .BD_LOW; 
3 3639 3 BO_LOW = .BD_LOW + .BUFF_SIZE; !' ADVANCE TO NEXT BUFFER ADDRESS 
3 3640 3 IF .TEMP GEQU .BD_LOW ! IF 16-BIT CARRY 
3 3641 3 THEN ! THEN 
3 3642 3 BD_HIGH = .BD_HIGH + 1; !' ADVANCE HIGH-ORDER WORD 
8 3643 3 
: 3644 2 END; 
3 3645 2 
3 3646 2 IF .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
3 3647 2 THEN ! THEN 
3 3648 3 BEGIN 
8 3649 3 
3 3650 3 MMRO = O; ! MAKE SURE MEM MGMT IS OFF 
3 3651 3 KTPDR = #0'77406'; ! PDR LOAD VALUE 
3 3652 3 KTPDRO = .KTPDR; ' LOAD PDR‘S 
: 3653 3 KTPDR1 = .KTPOR; 
: 3654 3 KTPDR2 = .KTPDR; 
$ 3655 3 KTPDR3 = .KTPDR; 
$ 3656 3 KTPDR4 = .KTPDR; 
3 3657 3 KTPDRS = .KTPOR; 
: 3658 3 KTPDR6 = .KTPOR; 
3 3659 3 KTPDR7 = .KTPDR; 
3 3660 3 
$ 3661 3 KTPARO = 0; ' LOAD PAR‘S 
; 3662 3 KTPARL = #0'200'; 
3 3663 3 KTPAR2 = #0'400'; 
; 3664 3 KTPAR3S = #0'600'; 
Fy 3665 3 KTPAR4 = #0'1000'; 
; 3666 3 KTPARS = #0'1200'; 
$ 3667 3 KTPAR6 = #0'1400'; 
3 3668 3 KTPAR7 = #0’ 7600'; 
H 3669 3 
F 3670 2 END; 
; 3671 2 
5 3672 1 END; ' ROUTINE INIT_IO_BUFF a " 

-SBTTL INIT.IO.BUFF MULTI-DRIVE SUBTEST ROUTINES 
000000 004137 000000G INIT. IO.BUFF: 

JSR Ri, $SAVES : 3565 
000004 013700 000000G MOV CTLR.CNT,RO F 3604 








CZRCD3 
vo2.0 


000010 
000012 
000014 
000016 








CZRCOBO RC25 GISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


000000G 
000000G 


000000G 
000001 


000000G 
000002G 


000000G 


000001 


177572 
077406 


002000 
000000G 


000000G 


000000G 





1$: 


2$: 


3$: 


4$: 
5$: 


6$: 
7$: 


> 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


L$HIMEM, #2000 
3$ 


#1,MEM.MGMT 
L$HIMEM,RO 
RO, #7577 

$ 


1 

#7577,R0 
RO,-(SP) 
#1777,(SP) 
RS,-(SP) 
PC,BLSDIV 
RO, #200 


#77,RO0 
RO,BUFF . SIZE 
R2 


#1,R3 

4s 

MEM. SIZE ,-(SP) 
(SP) 

RS, -CSP) 

PC ,BLS$DIV 

RO, BUFF . SIZE 


#1 ,BUFF .SIZE 
FREE .MEM.ADDR,R2 


R2 ,BUFF .DESC(RO) 
R3,BUFF .DESC+2(RO) 


R2,R4 
+1 aaa 


5 
#1,MEM.MGMT 
8$ 


94177572 
#77406 ,RO 





VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 


NUM. BUFF , « 


*,HIMEM 
HIMEM, « 


*,HIMEM 
HIMEM, * 


BLKS .PER.BUFF, « 
*,BLKS .PER.BUFF 


BD .LOW 
*,BD.HIGH 


*,BD.LOW 
tees 


J,* 


BD.LOW,# 
BD.HIGH, « 
BD .LOW, TEMP 
*,BD.LOW 


TEMP ,BD.LOW 


BD .HIGH 
J 
J,* 


*.KTPOR 





SEQ 0278 


age 86 
(27) 


3605 
3615 
3606 


3610 
3611 
3612 


3614 
3615 


3616 


3618 
3619 


3620 
3621 
3606 
3627 


3628 
3629 
3633 


3636 


3637 
3638 | 












SEQ 0279 
CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
vo2.0 MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB ICZRCD3. SRC; 17 





000264 010037 172300 MOV RO ,8#172300 ; KTPOR,* 
000270 010037 172302 MOV RO ,84172302 ; KTPOR,# 
000274 010037 172304 MOV RO ,84172304 ; KTPOR,*# 
000300 010037 172306 MOV RO ,8#172306 ; KTPDOR,« 
000304 010037 172310 MOV RO ,84172310 ; KTPOR,«* 
000310 010037 172312 MOV RO 84172312 ; KTPOR,«# 
000314 010037 172314 MOV RO 80172314 ; KTPOR,«# 
000320 010037 172316 MOV RO ,84172316 ; KTPOR,«* 
000324 005037 172340 CLR 8¢172340 F 

000330 012737 000200 172342 MOV #200 ,8#172342 H 

000336 012737 000400 172344 MOV #400 ,84172344 ; 

000344 012737 000600 172346 MOV 9600 ,8#172346 F 

000352 012737 001000 172350 MOV #1000, 84172350 ; 

000360 012737 001200 172352 MOV #1200, 84172352 ; 

000366 012737 001400 172354 MOV #1400, 84172354 ; 

000374 012737 007600 172356 MOV #7600, 84172356 3 

000402 022626 8$: CMP (SP)+,(SP)+ ; 

000404 000207 RTS PC ; 

; Routine Size: 131 words, Routine Base: $CODE$ + 6756 

: Maximum stack depth per invocation: 9 words 












SEQ 0280 
P 


CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 age 88 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (28) 
$ 3673 1 ROUTINE QIO_OK = 
; 3675 1 te 
3 3676 1 : THIS ROUTINE IS CALLED BY THE MULTI_DRIVE “EXECUTIVE” IN ORDER TO 
3 3677 1 ! DETERMINE WHETHER OR NOT A QIO REQUEST (OR QIO PAIR) SHOULD BE 
3 3678 1 H GENERATED TO THE CURRENT CONTROLLER. A VALUE OF “TRUE” IS RETURNED IF 
3 sae : H THE CONTROLLER MEETS 3 REQUIREMENTS: 
; H 
3 3681 1 H A. THE CONTROLLER IS ONLINE; 
8 3682 1 ! B. THE NUMBER OF OUTSTANDING QIOS IS AT LEAST 2 LESS THAN THE 
3 3683 1 ! MAXIMUM ALLOWED FOR ANY ONE CONTROLLER; 
3 3684 1 ! C. THERE IS AT LEAST ONE UNIT UNDER THE CONTROLLER WHICH IS 
3 3685 1 ! STILL UNDER TEST. 
3 3686 1 $ 
3 aoe : H IF ANY OF THESE TESTS FAIL, THEN A VALUE OF “FALSE” IS RETURNED. 
; H 
3 3689 1 HY IMPLICIT INPUTS: 
8 3690 1 ' CCTLR - CURRENT CONTROLLER NUMBER 
3 3691 1 ! CST_ADDR - ADDRESS OF CURRENT CONTROLLER’S CST 
3 3692 1 !- 
$ 3694 2 BEGIN 
F 3695 2 
3 3696 2 IF .CST_ADDR [STATE] EQLU ONLINE ! IF CONTROLLER IS ONLINE 
3 3697 2 THEN 
8 3698 3 BEGIN 
; 3699 3 
$ 3700 3 IF (.Q10 {.CCTLR) + 2) LEQU QIO_PER_CTLR ! IF OUTSTANDING QIO COUNT IS O.K. 
3 3701 3 THEN 
F 3702 4 BEGIN 
3 3703 4 
3 3704 4 IF .CST_ADDR [U_CNT] NEQU 0 ! IF THERE IS VALID UNIT 
F 3705 4 THEN 
3 3706 4 RETURN TRUE; ' “TRUE” EXIT POINT 
; 3708 3 3 
3 3710 2 END; 
s 3711 2 
F 3712 2 RETURN FALSE; ! “FALSE” EXIT POINT 
s 3714 1 END; 
-SBTTL QIO.OK MULTI-DRIVE SUBTEST ROUTINES 
000000 013700 000000G QI0.0K: MOV CST. ADDR ,RO 3 
000004 005760 000002 TST 2C(RO) 
000010 100023 BPL i$ 
000012 013700 000000G MOV CCTLR,RO F 
000016 116000 000000G MOVB QIOCRO),RO 
000022 042700 177400 BIC #177400,RO0 
000026 062700 000002 ADD #2,RQ0 
000032 020027 000020 CMP RO, #20 
000036 101010 BHI i$ 
000040 013700 000000G MOV CST. ADDR ,RO F 
000044 105760 000005 TSTB 5CRO)- 
000050 001403 BEQ i$ . 
000052 012700 000001 MOV #1,R0 3 
000056 000207 RTS PC . 
000060 005000 1$: CLR RO 3 
000062 000207 RTS PC 3 
; Routine Size: 26 words, Routine Base: $CODE$ + 7364 


; Maximum stack depth per invocation: 0 words 











r-- 


Ww 
g 
PO 9010 10 Gh OF 68 68 G8 G8 G8 G8 Od G80 10 10 Be ee he Be pe ee pe pe pe 


000000 010146 
000002 005001 
000004 010146 
000006 012746 
000012 004737 
000016 022626 
000020 105760 
000024 001012 
000026 105761 
000032 001007 
000034 005201 
000036 020127 
000042 003760 
000044 012700 
000050 000401 
000052 005000 
000054 012601 
000056 000207 


; Routine Size: 
; Maximum stack depth per invocation: 4 words 













SEQ 0281 
CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 90 
MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (29) 


ROUTINE MD_QUIT = 


+ 


THIS ROUTINE IS CALLED BY THE MULTI_ORIVE EXECUTIVE FOR DETERMINING THE 
END OF THE MULTI-DRIVE SUBTEST. ITS PURPOSE IS TO EXAMINE THE NUMBER OF 
TESTABLE UNITS REMAINING ON EACH CONTROLLER, AND THE NUMBER OF 
OUTSTANDING QIOS. IF BOTH OF THESE PARAMETERS ARE ZERO FOR ALL 
CONTROLLERS, THEN THIS ROUTINE RETURNS A VALUE OF “TRUE”. OTHERWISE, 
THE MULTI-DRIVE SUBTEST EXECUTIVE LOOP MUST CONTINUE, AND A VALUE OF 
“FALSE” IS RETURNED. 


BEGIN 
INCR CTLR FROM O TO (MAX_CTLR - 1) DO 
BEGIN 


IF .CST (.CTLR, U_CNT] NEQU 0 
THEN 
RETURN FALSE 
LSE 
IF .QI0 (.CTLR] NEQU 0 
THEN 
RETURN FALSE; 


ay LEAST ONE VALID UNIT REMAINS 
DON‘ T TERMINATE MULTI-DRIVE SUBTEST 
OTHERWISE (NO UNITS REMAIN) 

IF AT LEAST ONE QIO OUTSTANDING 


THEN 
DON'T TERMINATE SUBTEST 


END; 
RETURN TRUE; ! ALL PARAMETERS ARE ZERO - END OF SUBTEST 
END; ! ROUTINE MD_QUIT 
-SBTTL MD.QUIT MULTI-DRIVE SUBTEST ROUTINES 
MD.QUIT: MOV Ri,-(SP) 3 
CLR R1 ; CTLR 
1$: MOV R1,-(SP) ; CTLR,« 
000016 MOV #16, -CSP) 
000000G JSR PC ,BL$MUL 
CMP (SP)+,(SP)+ 
000005G TSTB CST+5(RO) 
BNE 2s 3 
000000G TSTB QIOCR1i) ; *(CTLR) 
BNE 2s 3 
INC Ri ; CTLR 
000003 CMP R1,#3 ; CTLR,«# 
BLE i$ 
000001 MOV #1,RO0 ; 
BR 3$ 
2s: CLR RO 3 
3$: MOV (SP)+,R1 
RTS PC 
24 words, Routine Base: $sCODE$ + 7450 
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14-Jun-1985 09:33:42 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 


CZRCDBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


ROUTINE QIO_GEN : NOVALUE = 


> 


THIS ROUTINE IS CALLED BY THE MULTI_ORIVE EXECUTIVE FOR AN ONLINE 
CONTROLLER ELIGIBLE TO RECEIVE I/0 TRANSFER REQUESTS. IT IS 
RESPONSIBLE FOR SECURING ONE OR TWO MSCP ENVELOPES AND LOADING THEM 
WITH VARIOUS PARAMETERS COMPRISING THE I/0 REQUEST. THE I/0 REQUEST 
GENERATED HERE IS DESTINED TO A PARTICULAR UNIT SELECTED AT RANDOM FROM 
THOSE CONFIGURED UNDER THE CURRENT CONTROLLER. 


EACH FIELD OF THE ENVELOPE(S) IS LOADED WITHIN INDIVIDUAL ROUTINES 
CQIO_FUNC, QIO.iBN, QIO_SIZE, ETC.). MOST OF THE VALUES SELECTED FOR 
EACH FIELD ARE BASED ON A SET OF RANDOM NUMBER GENERATED AT THE START. 


UNDER NORMAL CIRCUMSTANCES, ONLY ONE I/O REQUEST IS GENERATED. HOWEVER, 
IF THIS I/0 REQUEST IS A “WRITE”, AND IF THE OPERATOR SELECTED THE 
OPTION FOR HOST WRITE-COMPARES, THEN A SECOND “READ” REQUEST WILL BE 
GENERATED WITH THE SAME LBN AND BYTE COUNT. 


AFTER THE ENVELOPE(S) HAVE BEEN LOADED, THIS ROUTINE REGAINS CONTROL 
AND ATTEMPTS TO GET ONE OR TWO I/O BUFFERS FOR THE ACTUAL DATA 
TRANSFERS. THE SUCCESS / FAIL STATUS OF THIS ENTIRE OPERATION IS 
PASSED BACK TO THE CALLER THROUGH THE GLOBALS “MX1” AND “MX2”; THEY 
CONTAIN VALID MSCP ENVELOPE INDECES, OR -1. 


IMPLICIT INPUTS: 
CCTLR - CURRENT CONTROLLER NUMBER 


BEGIN 
MX2 = -1; ! ASSUME FAILURE IN SECURING 2ND ENVELOPE 
rom = GET_ENV (.CCTLR)) LSS 0 : oo" GET 1ST ENVELOPE. IF FAILURE 
H . 

RETURN; ! NO POINT IN CONTINUING 
IF (MX2 = GET_ENV (.CCTLR)) LSS 0 ! TRY TO GET 2ND ENVELOPE. IF FAILURE 
THEN ! THEN 

BEGIN 

PUT_ENV (.MX1); ! RETURN 1ST ENVELOPE TO POOL 

MX1 = -1; ! INDICATE FAILURE 

RETURN; ! DONE 

END; 


MAD1 = MSCP_ENV + (.MX1 # ENV_LEN & 2); 
MAD2 = MSCP_ENV + (.MX2 * ENV_LEN # 2); 
GET_RANDOM (); 

QIO_UNIT (); 

QIO_FUNC (); 

QIO_LBN (); 

QIO_SIZE (); 

GET_IO_BUFF (MAD1 [BUF_0)); 

IF .MX2 GEQ 0 

THEN 
BEGIN 


EEO 0.0.0 10.0 10.10.90. 10 10: G8 68 8 GF 8 G8 0.0. 90.0. 10 10, 0 ee ee eee ee ee ee ee ee ee he ee pe 








CALCULATE STARTING ADDRESSES 

OF BOTH ENVELOPES 
GENERATE A SET OF RANDOM NUMBERS 
LOAD RANDOM UNIT NUMBER INTO ENVELOPES 
LOAD RANDOM FUNCTION CODE (OPCODE) 
LOAD LBN (RANDOM OR SEQUENTIAL ) 
LOAD RANDOM BYTE COUNT 
TRY TO GET AN I/O BUFFER 
A, QIOS ARE TO BE ISSUED 
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3802 GET_IO_BUFF (MAD2 [BUF_0)); ! TRY TO GET 2ND I/0 BUFFER 

3803 IF .MAD2 [BUF_O) ! IF 2ND BUFFER ALLOCATION FAILED 

3804 THEN ! THEN 

sect BEGIN 

3807 IF NOT .MAD1 [BUF_O) ! IF 1ST I/O BUFFER WAS ALLOCATED 

3808 THEN ! THEN 

mo BEGIN 

3811 PUT_IO_BUFF C(MAD1 [BUF_0O)); ! RETURN 1ST I/O BUFFER TO POOL 

ate MAD1 (BUF_O) = -1; ! MARK IT AS FAILED 

3814 END; 

3815 

3816 PUT_ENV ¢.MX2); ! RETURN 2ND ENVELOPE TO POOL 

tH MX2 = -1; ! INDICATE FAILURE 

444 END; ! IF 2ND I/0 BUFFER ALLOCATION FAILED 

3821 END; ! IF TWO QIOS ARE TO BE ISSUED 


IF .MAD1 [BUF_0) IF 1ST I/0 BUFFER ALLOCATION FAILED 
TH THEN 


3824 EN $ 
3825 BEGIN 
3826 
3827 PUT_ENV (.MX1); ! RETURN 1ST ENVELOPE TO POOL 
3828 MX1 = -1; ! INDICATE FAILURE 
3829 
3830 END 
ELSE OTHERWISE CALL IS 0.K.) 


ae OPCODE IS A WRITE 
FILL 1ST I/0 BUFFER WITH APPROPRIATE DATA PATTERN 


IF .MAD1 [OPCODE] EQLU OP_WRT 
THEN 
FILL_BUFF (); 


w 

@ 

wo 
FPVNVNNNUAUAWUNNVNYNUWNES PS SSSUUUUUS &Sawwu 





END; ! ROUTINE QIO_GEN 
-SBTTL QIO.GEN MULTI-DRIVE SUBTEST ROUTINES 

012737 177777 000604’ QI0.GEN: MOV #-1,MX2 ; 
013746 000000G MOV CCTLR, -( SP) ; 
004737 000000G JSR PC,GET.ENV 
010037 000602‘ MOV RO,MX1 
005726 TST (SP)-+ 
005700 TST RO : MX1 
002564 BLT 6$ F 
013746 000000G MOV CCTLR, -( SP) ; 
004737 000000G JSR PC GET .ENV 
010037 000604’ MOV RO ,MX2 
005726 TST (SP)+ 
005700 TST RO 3 MX2 
002011 BGE 1$ 
013746 000602’ MOV MX1,-CSP) ; 
004737 000000G JSR PC PUT .ENV 
012737 177777 000602: MOV @-1,MX1 ; 
005726 TST (SP)+ ; 
000207 RTS PC 
013746 000602’ 1$; MOV MX1,-(SP) 5 
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000100 012746 000104 MOV #104, -(SP) 
000104 004737 000000G JSR PC ,BLSMUL 
000000G 


g 
g 
: 
33 
ue 


3$ 
000212 013716 000610’ MOV MAD2 , (SP) ; 
000216 062716 000030 ADD #30, (SP) 
000222 004737 0000006 JSR PC,GET. 10. BUFF 
000226 013700 000610° MOV MAD2 ,RO ; 
000232 032760 000001 000030 BIT . ,30(RO) 


000242 013700 000606’ MOV MAD1,RO ; 
000246 032760 000001 000030 BIT ~ rcmnaaas 


000256 012716 000030 MOV ay tt ot i 
000264 004737 000000G JSR PC. PUT 10. BUFF 


000274 012760 177777 000030 MOV #-1,30(RO) 
000302 013716 000604’ 2$: MOV MX2, (SP) ; 


000312 012737 177777 000604’ MOV @-1,MX2 ; 
000320 013700 000606’ 3$: MOV MAD1,RO ; 
000324 032760 000001 000030 BIT ss 30(RO) 


000334 013716 000602’ MOV nxt, (SP) 5 
000340 004737 000000G JSR PC, PUT .ENV 
000344 012737 177777 000602’ MOV Se 1,MX1 ; 


000354 013700 000606’ 4$: MOV MAD1 ,RO ; 
000360 126027 000020 000042 CMPB ~Sinle iie 


000370 004737 000000V JSR PC FILL. BUFF ; 
000374 062706 000006 5$: ADD #6 , SP ; 
000400 000207 6$: RTS PC ; 


s Routine Size: 129 words, Routine Base: ‘$sCODE$ + 7530 
s Maximum stack depth per invocation: 4 words 











PON CGE & DD DD & G4 GIN 1 1010 1010 10 10 10 1 2 ee ee ee ee ee 


123456 


004137 


013746 
012746 
004737 
010016 
053716 
012746 


CZRCOBO 


MULTI-ORIVE SUBTEST ROUTINES 


ROUTINE 


oe 


BEGIN 





SEQ 0285 os 
age 
(31) 


RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Blies-16 V4.0-579 
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GET_RANDOM : NOVALUE = 


THIS ROUTINE IS CALLED BY QIO_GEN TO GENERATE A SET OF RANDOM NUMBERS, 
AND TO STORE THEM INTO THE RANDOM NUMBER TABLE (RANDOM). THE RANDOM 
NUMBERS ARE USED TO SELECT I/0 REQUEST PARAMETERS FOR THE CURRENT QI0 
OR QIO PAIR. IN ADDITION, IF DATA PATTERN #1 IS BEING USED, THESE 
RANDOM NUMBERS WILL BE USED IN THE WRITE OPERATION. 


A TEST IS MADE TO AVOID GENERATING THE RANDOM NUMBER 100000-OCTAL. THIS 
NUMBER, IF USED AS THE DIVIDEND IN A “MOD” OPERATION (E.G., QIO_LBN), 
REGARDLESS OF THE DIVISOR, RESULTS IN AN OUT-OF-RANGE REMAINDER. 


SEED1 : WORD INITIAL (#0'123456' ); 


LOCAL 
SEED2 : WORD; 
SEED2 = ((.MINUTES * 5) OR .SECONDS) t 5 OR .TICKS; 
DECR COUNT FROM (ROM_LEN - 1) TO 0 DO 
BEGIN 
DO 
BEGIN 


SEED1 = (.SEED1 + .SEED2 + 1) « 4; 
SEED2 = (.SEED2 / 4) + .SEED1; 
RANDOM [.COUNT] = .SEED2; 


END 
UNTIL .RANDOM [.COUNT] NEQU #0‘ 100000’ ; 





-PSECT $GGG$, RO 
- WORD 


SEED1: -54322 
-SBTTL GET.RANDOM MULTI-DRIVE SUBTEST ROUTINES 
-PSECT sCODE$, RO 
GET. RANDOM: 
JSR R1, $SAVES ; 
MOV MINUTES, -( SP) : 


MOV @5,-(SP) 

JSR PC .BL$SHF 
RO,(SP) 

BIS SECONDS, (SP) 

MOV 05,-(SP) 


3837 
3859 


CZ2RCO3 
vo2.0 


000142 062706 
000146 000207 


; Routine Size: 
>; Maximum stack 








CZRCDBO RC25 DISK EXERCISER 
MULTI-ORIVE SUBTEST ROUTINES 


000000G 
000000G 
000036 


002552' i$: 
2s: 


002552" 
000004 002552’ 


000004 
000000G 
002552’ 
000634' 
100000 
000002" 
000006 


52 words, Routine Base: 
depth per invocation: 9 words 
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PC ,BL$SHF 
R 


RO,SEED1 

04 ,SEED1 
R2,(SP) 
$4,-(SP) 

PC BLSDIV 
SEED1,R3 
R3,RO 

RO,R2 

R2 ,RANDOM(R1 ) 
(SP) 


R2,%-100000 
es 
#2,R1 


sCODE$ + 10132 
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; *,SEED2 
3 *, SEED2 
: *,COUNT 3860 
F 3866 
; SEED2,* 
; SEED2,« 3867 
*, SEED2 
SEED2, «(COUNT ) 
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#, COUNT 


ae 





BB VU OY DD OV UT UT UT UT Be Be Be BB OF 8 OF RDO. 90-90. 90.70. 0. 90. 0.10.90 90 0 0 ee ee ee ee ee ee ee pe pe pe 
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ROUTINE QIO_UNIT : NOVALUE = 


° 


THIS ROUTINE IS CALLED BY QIO_GEN TO RANDOMLY SELECT ONE UNIT 
CONFIGURED UNDER THE CURRENT CONTROLLER (CCTLR) TO BE USED FOR THE 
CURRENT QIO OR QIO PAIR. THE UNIT SELECTED IS BASED ON THE NUMBER OF 
UNITS ELIGIBLE TO RECEIVE AN I/0 REQUEST (FROM 1 TO 4) AND THE FIRST 
RANDOM NUMBER IN THE RANDOM NUMBER TABLE (RANDOM). 


IMPLICIT INPUTS: 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 


IMPLICIT OUTPUTS: 
THE MSCP UNIT NUMBER (PLATTER ADDRESS) IS LOADED INTO THE 
APPROPRIATE FIELD OF BOTH MSCP ENVELOPES. 


BEGIN 
LOCAL 
UNIT : WORD, ' UNIT NUMBER 
NTH_UNIT : WORD; ' ORDINAL NUMBER OF CHOSEN UNIT 
CASE .CST_ADDR [U_CNT] ! DETERMINE ORDINAL UNIT NUMBER 
FROM 1 TO 4 OF 
SET 
(1) : NTH_UNIT = 1; , 3 
[2] : NTH_UNIT = (.RANDOM [0] AND 1) + 1; ' 1 OR 2 
[3] : NTH_UNIT = ABS (.RANDOM [0] MOD 3) + 1; ! 1, 2. OR 3 
[4] : NTH_UNIT = (.RANDOM [0] AND 3) + 1; 2, 8 3 ORS 
[OUTRANGE] : NTH_UNIT = 1; ! IN CASE CONTROLLER JUST WENT DOWN 


TES; 
So FROM (O + OF_UN) TO (3 + OF_UN) DO ! LOOP THROUGH EACH CST UNIT 
EGIN 


IF .CST_ADDOR [.OFFSET, P_PRES] EQLU PRESENT ! IF UNIT IS PRESENT 
THEN ' THEN 
BEGIN 
UNIT = .CST_ADDR [.OFFSET, P_UNIT]; !' GET (ORS) UNIT NUMBER 
IF .CPT [.UNIT] ' IF THIS UNIT IS ACTIVE 
THEN ! THEN 
BEGIN ! THIS IS AN ELIGIBLE UNIT 
NTH_UNIT = .NTH_UNIT - 1; ' DECREMENT ORDINAL COUNT 
IF .NTH_UNIT EQLU 0 ! IF DOWN TO 0 
THEN ! THEN 
BEGIN ! THIS IS THE CHOSEN UNIT 
SET_UPAR ( .OFFSET); ! SET UP UNIT-RELATED DATA 
EXITLOOP; ! DONE 
END; 
END; ' UNIT IS ACTIVE 


CZRCD3 
vo2.0 


@e @s os os os os os os 
w 
# 
Mh hh ww 


0002C2 005202 
0002C4 020227 











CZRCOBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


END; 
END; 


MAD1 [PL_ADDR] = .CPLAT; 
MAD2 [PL_ADDR] = .CPLAT; 


END; 


000000G 

000005 

177400 

000003 

000000' 

000001 2s: 


000634' 3$: 
177776 

000634' 4$: 
000003 

000000G 


000000G 


000634' 5$: 
177774 
6$: 


000003 7$: 
8$: 


000000G 
040000 


177740 
000001 000000G 
000000G 


9$: 
000006 
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! UNIT IS PRESENT 
! CST UNIT LOOP 


! LOAD PLATTER ADDRESS (MSCP UNIT NUMBER) 
! BOTH MSCP ENVELOPES 


! ROUTINE QIO_UNIT 





VAX-11 Bliss-16 V4.0-579 
USER $1: [AZTEC.CZRCDB JCZRCD3.SRC;17 


-SBTTL QIO.UNIT MULTI-DRIVE SUBTEST ROUTINES 
000000G QI0.UNIT: 


R1, $SAVE3 
CST.ADOR ,RO 
SCRO),RO 
#177400,RO0 
RO 


RO,@3 


P.AAACRO),PC 
#1,R3 
7$ 

RANDOM ,R3 
#177776,R3 
6$ 

RANDOM, -(SP) 
#3,-(SP) 

PC ,.BL$MOD 
RO, (SP) 
PC,.BLSABS 
RO,R3 


R3 
(SP)+,(SP)+ 
7$ 


RANDOM ,R3 
#177774,R3 
R3 


#3,R2 
R2,RO 
RO 


CST.ADDR ,RO 
arti 
$ 


CRO),R1 

R1 
#177740,R1 
#1,CPTCR1) 
9$ 
R2,-(SP) 


P)+ 


Case dispatch 
*,NTH. UNIT 


*,NTH.UNIT 
*,NTH. UNIT 


*, NTH. UNIT 
NTH. UNIT 


*,NTH. UNIT 
*,NTH. UNIT 
NTH. UNIT 
*, OFFSET 
OFFSET,# 


*,UNIT 
UNIT 

*, UNIT 

*, *( UNIT) 


NTH. UNIT 
OFFSET,# 


OFFSET 
OFFSET,* 
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3876 
3899 


3902 
3899 
3903 


3904 


3899 
3905 


3909 
3912 


3916 





-- 


CZRCD3 
vo2.0 


000210 
000212 
000216 
000224 
000230 
000236 


3: Routine Size: 
; Maximum stack 


000000 


000000 
000002 
000004 
000006 





003746 
013700 
013760 
013700 
013760 
000207 


000000 
000006 
000020 
000052 
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000606 ' 10$: 
000000G 000014 

0006 10° 

000000G 000014 


80 words, Routine Base: 


depth per invocation: 7 words 


P.AAA: 
1$: 





SCODE$ + 


-PSECT 


. WORD 
- WORD 
. WORD 
- WORD 
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8$ 

MAD1,RO 
CPLAT,14(RO) 
MAD2 ,RO 
CPLAT,14(RO) 
PC 


10302 


$PLIT$, RO, OD 


er SS 
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3937 
3938 
3876 


rey Table for QIO.UNIT+0032 


(3$] 
[4$] 
(5$] 


eS A 
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3941 
3942 
3943 


ROUTINE QIO_FUNC : NOVALUE = 
te 
' THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE I/0 FUNCTION C(OPCODE) 
! TO BE USED FOR THE CURRENT QIO OR QIO PAIR. THE FUNCTION IS DETERMINED 
! BY THE FOLLWING ALGORITHM: 
i] 
! 4 THE CHOSEN UNIT IS PROTECTED 
HEN 
FUNCTION = READ 
ELSE C UNPROTECTED) 
.— SELECTED “WRITE-ONLY” OPTION 
H 
FUNCTION = WRITE 


FUNCTION (WRITE OR READ) IS BASED ON A RANDOM 
NUMBER 


ELSE 


COMPARES AT THE HOST, AND IF A “WRITE” FUNCTION WAS CHOSEN ABOVE FOR 
THE FIRST QIO, THEN A “READ” OPCODE IS LOADED INTO THE SECOND MSCP 
ENVELOPE. OTHERWISE, THE SECOND MSCP ENVELOPE IS RETURNED TO THE POOL. 
IMPLICIT INPUTS: 

CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 

CUOFF - CURRENT UNIT CST OFFSET 


IMPLICIT OUTPUTS: 


: 
: 

‘ 

’ 

1 

‘ 

’ 

a 

! 

‘ 

: IN ADDITION, IF THE OPERATOR SELECTED THE OPTION OF PERFORMING WRITE- 
, 

! 

! 

! 

n 

’ 

' 

é 

3 THE OPCODE FIELD OF ONE OR BOTH MSCP ENVELOPES IS LOADED. 
3 


BEGIN 


LOCAL 
FUNC : WORD; ! OPCODE (READ OR WRITE) 


IF .CST_ADDR [.CUOFF, P_PROT] EQLU PROTECTED c— IS PROTECTED 
THEN H 
FUNC = OP_RD SET FUNCTION TO READ 
E OTHERWISE CUNIT IS UNPROTECTED) 
BEGIN 
IF BIT_TST CSWP_FLAGS, SWF_WO) 
THEN 
FUNC = OP_WRT 
BEGIN 
IF (.RANDOM [1] AND 1) 
THEN 
FUNC = OP_RD 
FUNC = OP_WRT; 
END; 
END; 


IF OPERATOR CHOSE WRITE-ONLY OPTION 
THEN 


SET FUNCTION TO WRITE 
OTHERWISE 


! USE 2ND RANDOM NUMBER TO SELECT 
EITHER 


pe) 
me 
> 
o 


; 
; 
; 
; 
o 
: 
; 
: 
; 
; 
: 
a 
; 
; 
; 3969 
€ 
; 
; 
’ 
; 
o 
H 
t 


w 
wo 
~ 
rans 
RAR BBB BAS BAG BW GEN 1010.10.10 10.10 10.10 ee ee ee ee ee ee ee he ee ee he be ee be pe 











eee een 
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IF (MAD1 [OPCODE] = .FUNC) EQLU OP_WRT ' LOAD CHOSEN OPCODE. IF WRITE 
THEN THEN 
BEGIN 
ee CSWP_FLAGS, SWF_CWC) ! —— DOES WRITE-COMPARES 
H H 
MAD1 [MODIFY] = MD_CMP; ADD COMPARE MODIFIER 
IF BIT_TST CSWP_FLAGS, SWF_HWC) ! IF HOST DOES WRITE-COMPARES 
THEN THEN 
BEGIN 
MAD1 [MODIFY] = MD_EXP; ! SET EXPRESS REQUEST MODIFIER 
MAD2 [OPCODE] = OP_RD; ! SET READ OPCODE INTO 2ND MSCP ENVELOPE 
MAD2 [MODIFY] = MD_EXP; SET EXPRESS REQUEST MODIFIER 
END; 
END 
ELSE 
BEGIN 
— CSWP_FLAGS, SWF_CRC) 
H 
MAD1 [MODIFY] = MD_CMP; 
END; 
IF .MAD2 [OPCODE) EQLU 0 
THEN 
BEGIN 


PUT_ENV (.MX2); RETURN 2ND ENVELOPE TO POOL 
MX2 = -1; ! MARK IT UNUSED 


END; 
END; 


OTHERWISE - FUNCTION IS READ 


_—- DOES READ-COMPARES 
H 
ADD COMPARE MODIFIER ; 


IF NO OPCODE IN 2ND ENVELOPE 
THEN 


; 
; 

; 

; 

; 

5 

; 

; 

+ 4017 
; 

: 

3 


FNM AWUUWAANNUNUNWAWNEUUNNWUNWN ESSE SEWEWWW WW 


ROUTINE QIO_FUNC 
-SBTTL QIO.FUNC MULTI-DRIVE SUBTEST ROUTINES 
010542 -PSECT $CODE$, RO 
000000 004137 000000G QIO.FUNC: 
JSR R1,$SAVE2 ; 
000004 013700 0000006 MOV CUOFF ,RO ; 
000010 006300 ASL RO 
000012 063700 000000G ADD CST.ADOR,RO 
000016 032710 100000 BIT + a aaa 
000024 132737 000020 0000006 BITB ee eee 
$ 
00034 032737 000001 000636’ BIT + ernest, 


000044 012702 000041 1$: MOV tn 3 *,FUNC 
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000052 012702 000042 2$: MOV #42,R2 3 *,FUNC 3993 
000056 005001 3$; CLR RI ; 4003 
000060 153701 000000G BISB SWP.FLAGS,R1 

000064 013700 000606' MOV MAD1 ,RO 3 

000070 110260 000020 MOVB R2,20(RO) ; FUNC,# 

000074 020227 000042 CMP R2,#42 3 F * 

000100 001025 BNE S$ 

000102 032701 000040 BIT #40,R1 3 

000106 001403 BEQ 4s 

000110 012760 040000 000022 MOV #40000 ,22(RO) 8 

000116 032701 000100 4$;: BIT #100,R1 3 

000122 001422 BEQ 6$ 

000124 012760 100000 000022 MOV #-100000 ,22( RO) F 

000132 013700 000610' MOV MAD2 ,RO 3 

000136 112760 000041 000020 MOVB #41,20(RO) 

000144 012760 100000 000022 MOV #-100000 ,22( RO) 3 

000152 000406 BR 6$ ; 

000154 032701 000010 5$: BIT #10,R1 3 

000160 001403 BEQ 6$ 

000162 012760 040000 000022 MOV #40000 ,22(RO) 3 

000170 013700 000610: 6$: MOV MAD2 ,RO 3 

000174 105760 000020 TSTB 20(RO) 

000200 001010 BNE 7$ 

000202 013746 000604' MOV MX2,-CSP) 3 

000206 004737 000000G JSR PC ,PUT.ENV 

000212 012737 177777 000604’ MOV #-1,MX2 3 

000220 005726 TST (SP)+ 3 

000222 000207 7$: RTS PC ; 

; Routine Size: 74 words, Routine Base: $CODE$ + 10542 


; Maximum stack depth per invocation: 5 words 





















SEQ 0293 
CZRCD3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 102 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB ICZRCD3. SRC; 17 (34) 


4037 ROUTINE QIO_LBN : NOVALUE = 
4038 
4039 te 
4040 : THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE LOGICAL BLOCK NUMBER TO 
aan i] BE USED FOR THE CURRENT QIO OR QIO PAIR. 

2 : 
4043 $ IF THE OPERATOR CHOSE THE RANDOM SEEK MODE OPTION, THEN THE LBN IS 
4044 g RANDOMLY CHOSEN WITHIN THE SPECIFIED LIMITS FOR TRACK AND SECTOR. 
4045 : OTHERWISE, THE NEXT SEQUENTIAL LBN IS DERIVED FROM THE BLOCK SEQUENCE 
4046 ] TABLE (BST). 
4047 : 
4048 : IMPLICIT INPUTS: 
pos : L$LUN - CURRENT (DIAGNOSTIC SUPERVIOR) UNIT NUMBER 
a : 
4051 : IMPLICIT OUTPUTS: 
roe 2 THE LBN IS LOADE® INTO ONE OR BOTH MSCP ENVELOPES. 
40 t- 
4054 
4055 BEGIN 
4056 
4057 LOCAL 
4058 T_RANGE : WORD, ! PERMISSIBLE RANGE OF TRACK NUMBERS 
4059 S_RANGE : WORD, ! PERMISSIBLE RANGE OF SECTOR NUMBERS 
4060 NTRACK : WORD, ! SELECTED TRACK NUMBER 
4061 NSECT : WORD, ! SELECTED SECTOR NUMBER 

t 


8 
3 
: 
3 
3 
3 
; 
8 
3 
3 
: 
; 
; 
; 
; 
, 
3 
; 
3 4062 
: 
3 
3 
: 
3 
F 
: 
$ 
; 
3 
$ 
; 
3 
3 
3 
3 


> 
3 
PMP 10 1010 GF G8 GED 8 G8 8 G8 8 OF 68 GED GFP. 0 10.10.10 10. 10. 10 10 ee ee ee ee ee ee ee ee 


pie LBN : WORD; LOGICAL BLOCK NUMBER 
6 
IF BIT_TST (SWP_FLAGS, SWF_RDM) ! IF RANDOM SEEK MODE 
4065 THEN ! THEN 
4066 BEGIN 
4067 
4068 T_RANGE = (.SWP_ETRACK - .SWP_STRACK) + 1; ! RANGE OF TRACK NUMBERS 
4069 S_RANGE = MAX_SECT + 1; ! RANGE OF SECTOR NUMBERS 
4070 NTRACK = .SWP_STRACK + ABS (.RANDOM [2] MOD .T_RANGE); ! RANDOM TRACK NUMBER WITHIN RANGE 
ped NSECT = ABS (.RANDOM [3] MOD .S_RANGE); ! RANDOM SECTOR NUMBER WITHIN RANGE 
4072 
4073 END 
4074 ELSE ! ELSE - SEQUENTIAL LBN MODE 
4075 BEGIN 
4076 
4077 NTRACK = .BST [.L$LUN, TRACK]; ! GET TRACK FROM BST 
4078 NSECT = .BST [.L$LUN, SECTOR]; ! GET SECTOR FROM BST 
4079 ADV_BST (); ! ADVANCE TO NEXT LBN 
4080 
4081 END; 
4082 
4083 LBN = (.NTRACK * SEC_PER_TRK) + .NSECT; ! CALCULATE LBN 
4084 MAD1 [LBN_L] = .LBN; ! LOAD LBN INTO 1ST ENVELOPE 
4085 IF .MX2 GEQ 0 ! IF 2 QIOS 
4086 HEN ! THEN 
4087 MAD2 [LBN_L] = .LBN; ! LOAD LBN INTO 2ND ENVELOPE 
4088 
4089 END; ! ROUTINE QIO_LBN 
-SBTTL QIO.LBN MULTI-DRIVE SUBTEST ROUTINES 
000000 004137 000000G QI0.LBN: JSR R1,$SAVE2 i 











000004 132737 





000202 000207 





; Routine Size: 
; Maximum stack depth per invocation: 7 words 





CZRCDBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


000004 0000006 


000000G 
000000G 


000037 
000640' 


000000G 


000000G 
600000G 


000642‘ 
000000G 
000000G 
000006 

000000G 
000442’ 
000440' 
000000V 
000037 

000000G 


000606 ' 
000044 
000604‘ 


000610' 
000044 


66 words, 





1$: 


2s: 


3$: 


Routine Base: 


CMP 
RTS 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


#4,SWP .FLAGS 
i$ 


SWP.ETRACK ,RO 
nn 


SUP. STRACK ,RO 
RO,R1 
RANDOM 6 (SP) 


PC ,BL$ABS 
RO,R2 
#6 ,SP 


2$ 
L$LUN,RO 
RO 


RO 
BST+2(RO),R1 
BSTCRO),R2 
PC,ADV.BST 
R1,-(SP) 
#37, -(SP) 
PC,BL$MUL 
R2,RO 

RO,R1 
MAD1,RO 
R1,44(RO) 
MX2 

3$ 

MAD2 ,RO 
R1,44(RO) 
(SP)+,(SP)+ 
PC 


$CODE$ + 10766 










SEQ 0294 

VAX-11 Bliss-16 V4.0-579 Page 103 
USER$1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (34) 
; 4064 
; 4068 
+ *,S.RANGE 4069 
$ 4070 
3 T. RANGE, * 

3; *,NTRACK 


S.RANGE, * 


*,NSECT 


*, NTRACK 
*,NSECT 


NTRACK , # 
NSECT,# 
*,LBN 
LBN,* 


LBN,* 





CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 

vo2.0 MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 

8 4090 1 ROUTINE ADV_BST : NOVALUE = 

8 4091 1 

: 4092 1 te 

F 4093 1 ! THIS ROUTINE IS CALLED BY QIO_LBN TO ADVANCE THE CURRNET UNIT'S LBN 

; 4094 1 ! IN THE BLOCK SEQUENCE TABLE (BST). THIS IS DONE BY INCREMENTING THE 

3 4095 1 H SECTOR NUMBER CAND TRACK NUMBER, IF NECESSARY), WHILE ENSURING THAT 

$ pote : H BOTH VALUES REMAIN WITHIN THE PROPER LIMITS. 

; H 

3 4098 1 ! IMPLICIT INPUTS: 

3 4099 1 ! L$LUN - CURRENT (DRS) UNIT NUMBER 

8 4100 1 !- 

3 4101 1 

F 4102 2 BEGIN 

3 4103 2 

F 4104 2 BST [.L$LUN, SECTOR) = .BST [.L$LUN, SECTOR] + 1; ! INCREMENT SECTOR NUMBER 

3 4105 2 IF .BST [.L$LUN, SECTOR] GTRU MAX_SECT H 

PF 4106 2 THEN ! THEN 

8 4107 3 BEGIN 

’ 4108 3 

3 4109 3 BST [.L$LUN, SECTOR] = 0; ! SET SECTOR TO LOW LIMIT 

3 4110 3 BST [.L$LUN, TRACK] = .BST [.L$LUN, TRACK] + 1; ! INCREMENT TRACK NUMBER 

F 4111 3 IF .BST [.L$LUN, TRACK] GTRU .SWP_ETRACK ! 

3 4112 3 HEN ! THEN 

F ryt 4 BST [.L$LUN, TRACK] = .SWP_STRACK; ! SET TRACK TO LOW LIMIT 

3 4115 2 END; 

: 4116 2 

$ 4117 1 END; ! ROUTINE ADV_BST 
-SBTTL ADV.BST MULTI-DRIVE SUBTEST ROUTINES 

000000 010146 ADV.BST:MOV R1,-(SP) F 

000002 013701 000000G MOV L$LUN,R1 3 

000006 006301 ASL Ri 

000010 006301 ASL R1 

000012 012700 000440' MOV #BST,RO 

000016 060100 ADD R1,R0 

000020 005210 INC CRO) 

000022 021027 000036 CMP CRO), #36 3 

000026 101412 BLOS i$ 

000030 005010 CLR CRO) 3 

000032 012700 000442' MOV #BST+2,RO0 ; 

000036 060100 ADD R1,RO 

000040 005210 INC CRO) 

000042 021037 000000G CMP CRO), SWP.ETRACK 3 

000046 101402 BLOS i$ 

000050 013710 000000G MOV SWP. STRACK, (CRO) F 

000054 012601 1$: MOV (SP)+,R1 ; 

000056 000207 RTS PC 

; Routine Size: 24 words, Routine Base: ‘$CODE$ + 11172 


; Maximum stack depth per invocation: 2 words 











SEQ 0295 
Page 104 
(35) 





VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 


IF SECTOR IS BEYOND HIGH LIMIT 


IF TRACK IS BEYOND HIGH LIMIT 





> 
es 
Aw 
w 
& FO PO 10 70 10 70 10 GE PD 10 10 10 10 10 10 10 & be ee ee pe pe 


004137 


013746 
013746 
005216 
004737 
010016 
004737 
010003 
042703 
013701 
010316 
005316 
012746 
004737 
066100 
010002 
013700 
005300 
020200 
101410 
013700 
166100 
000300 
105000 



































SEQ 0296 


CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 105 
MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 (36) 
ROUTINE QIO_SIZE : NOVALUE = 
te 
H THIS ROUTINE IS CALLED BY QIO_GEN TO SELECT THE I/0 TRANSFER BYTE COUNT 
: TO BE USED FOR THE CURRENT QI0 OR QIO PAIR. THE BYTE COUNT IS 
8 DETERMINED BY A RANDOM NUMBER, AND WILL ALWAYS BE AN EVEN NUMBER 
g BETWEEN 0 AND THE 1/0 BUFFER SIZE (BUFF_SIZE), INCLUSIVE. 
a 
' IMPLICIT OUTPUTS: 
' THE BYTE COUNT IS LOADED INTO ONE OR BOTH MSCP ENVELOPES. 
Bias 
BEGIN 
LOCAL 
END_BLK : WORD, ! ENDING BLOCK NUMBER FOR CURRENT I/0 
SIZE : WORD; ! BYTE COUNT 
SIZE = ABS (.RANDOM [4] MOD (.BUFF_SIZE + 1)) AND #0'177776'; ! GET BYTE COUNT FROM RANDOM NUMBER 
END_BLK = .MAD1 [LBN_L] + ((.SIZE - 1) / BLK_SIZE); ! CALCULATE ENDING BLOCK NUMBER 
— GTRU (.USIZE - 1) : — BLOCK IS LARGER THAN UNIT SIZE 
H g 
SIZE = (.USIZE - .MAD1 [LBN_L])) * BLK_SIZE; ! SCALE DOWN BYTE COUNT 
MAD1 [BC_LO) = .SIZE; ' LOAD SIZE INTO 1ST MSCP ENVELOPE 
IF .MX2 GEQ 0 ! IF 2 QIOS 
THEN ! THEN 
MAD2 [BC_LO) = .SIZE; ! LOAD SIZE INTO 2ND MSCP ENVELOPE 
END; ! ROUTINE QIO_SIZE 
-SBTTL QIO.SIZE MULTI-DRIVE SUBTEST ROUTINES 
000000G QIO.SIZE: 
JSR R1,$SAVE3 H 4118 
000644' MOV RANDOM+10, -( SP) ; 4136 
000000G MOV BUFF .SIZE, -(SP) 
INC (SP) 
000000G JSR PC ,BL$MOD 
MOV RO, (SP) 
000000G JSR PC,BLS$ABS 
MOV 0,R3 ; *,SIZE 
000001 BIC #1,R3 ; *,SIZE 
000606 ' MOV MAD1,R1 3 4137 
MOV R3,(SP) ; SIZE,* 
DEC (SP) 
001000 MOV #1000, -C SP) 
000000G JSR PC ,BL$DIV 
000044 ADD 44(R1),RO 
MOV RO,R2 ; *#,END.BLK 
000616‘ MOV USIZE,RO F 
DEC. RO 
CMP R2,RO ; END.BLK,«# 
BLOS 1$ 
000616' MOV USIZE,RO : 
000044 SUB 44(R1),RO 
SWAB RO 
CLRB RO 


co! eS ess ss eee |_|) 





CZRCOBO RC25 DISK EXERCISER 
MULTI-ORIVE SUBTEST ROUTINES 


000606 ' 1$: 
000024 
000604 ' 


0006 10° 
010360 000024 
000006 2s: 


; Routine Size: 53 words, Routine Base: 


: Maximum stack depth per invocation: 


—— 


8 words 





14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 

RO 

RO,R3 

MAD1 ,RO 

R3,24(RO) 

MXx2 

2$ 

MAD2 ,RO 

R3,24(RO) 


$CODE$ + 11252 


Mi a 


SEQ 0297 
Page 106 
USER$1:CAZTEC.CZRCDB JCZRCD3. SRC; 17 (36) 


VAX-11 Bliss-16 V4.0-579 


; *,SIZE 
3 4141 
: SIZE,«# 
3 4142 
3 4144 
: SIZE,« 
3 4130 
PF 4118 


a OSS OA SPARES SSO SSSSSE PARES SHEAHE CO RHO HERE OOS 
AAS SB BD BB BE BERD PDD GET 19 10.19. 19.10 D010 0D eee ee ee ee ee ee ee ee pe 





CZRCOBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


ROUTINE FILL_BUFF : NOVALUE = 


14-Jun-1985 09:4 
14-Jun-1985 09:3 





THIS ROUTINE IS CALLED BY QIO_GEN TO LOAD THE I/0 BUFFER DESCRIBED IN 
THE FIRST MSCP ENVELOPE WITH THE APPROPRIATE DATA PATTERN. 


THE DATA PATTERN TO BE SELECTED IS BASED ON THE FOLLOWING ALGORITHM: 
—" OPERATOR DEFINED A DATA PATTERN 


SELECT IT 
ELSE 


GET DATA PATTERN NUMBER FROM SW P-TABLE 


IF DATA PATTERN NUMBER = 0 
THEN 


GET DATA PATTERN NUMBER FROM THE UNIT'S ENTRY 
IN THE DATA PATTERN SEQUENCE TABLE (DPST) 


NOTE THAT PATTERN @ 1 CONSISTS OF RANDOM NUMBERS, AND PATTERNS @ 17 - 
21 USE THE ACTUAL LBN OF THE WRITE REQUEST. 


IMPLICIT INPUTS: 


L$LUN - CURRENT (DRS) UNIT NUMBER 


PAF : WORD, 
COUNT : WORD; 


IF BIT_TST (SWP_FLAGS, SWF_UDP) 
THEN 


DP_ADDR = SWP_UCNT 
SE 
BEGIN 

IF .SWP_OPAT NEQU O 

THEN 
DP_NUM = .SWP_DPAT 

ELSE 
BEGIN 
DP_NUM = .OPST [.LSLUN); 
DPST [.LSLUN) = .DPST [.LSLUN] + 1; 
IF .DPST [.LSLUN] GTRU DP_CNT 
THEN 

OPST [.LSLUN) = 1; 

END; 


DP _ADDR = .OPA_TBL [.DP_NUM - 1); 





DATA PATTERN NUMBER SELECTED 
ADDR OF DATA PATTERN (LENGTH) 
I/0 BUFFER ADDRESS (DESTINATION) 
WORKING SOURCE ADDRESS 

MEM. MGMT. ADDRESS DISPLACEMENT 
PAGE ADDRESS FIELD 

NO. OF WORDS IN DATA PATTERN 


IF USER DEFINED A DATA PATTERN 
THEN 


SELECT IT 
OTHERWISE 


— SELECTED A PRE-DEFINED DATA PATTERN 


SELECT IT 
OTHERWISE 


! GET PATTERN NUMBER FROM SEQUENCE TABLE 
! ADVANCE TO NEXT PATTERN NUMBEK 
! CHECK FOR HIGH LIMIT 


ADDRESS OF DATA PATTERN (COUNT) 


1:21 VAX-11 Bliss-16 V4.0-579 
3:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 


—_———_ cr cc 








SEQ 0299 
CZ2RC03 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 108 
v02.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB ICZRCD3. SRC; 17 (37) 
4204 TF .OP_NUM GEQU 17 
4205 THEN 
4206 BEGIN 
4207 
4208 IF .DP_NUM H 4 PATTERN 17, 19, OR 21°. 
4209 THEN ! THEN 
4210 (.DP_ADDR + 2) = .MADI [LBN_L]) ! LOAD LBN INTO FIRST = OF PATTERN 
4211 ! ELSE - PATTERN 18 OR 2 
= (.O0P_ADDR + 4) = .MAD1 [LBN_L]; ! LOAD LBN INTO SECOND Soro OF PATTERN 
42° i 
4214 END; 
4215 
4216 END; 
4217 
4218 IOB_ADDR = .MAD1 [BUF_0O]; ! I/0 BUFFER ADDRESS 
4219 IF .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
4220 THEN ! THEN 
4221 BEGIN 
4222 
4223 DISP = .IOB_ADDR AND #0'17777'; ! I/O BUFFER DISPLACEMENT ADDRESS 
4224 PAF = (.IOB_ADDR t -6) AND #0'1600'; ' PAGE ADDRESS FIELD 
4225 KTPAR4 = (.MAD1 [BUF_1] t 10) OR .PAF; ! LOAD PAR4 
4226 IOB_ADDR = #0'100000' OR .DISP; ! I/0 BUFFER VIRTUAL ADDRESS 
4227 
4228 END; 
4229 
COUNT = ..DP_ADDR; ! NO. OF WORDS IN DATA PATTERN 
SRC_ADDR = .DP_ADDR + 2; ! START OF THE ACTUAL DATA PATTERN 
4232 INCR N FROM 1 TO (.MAD1 [BC_LO) 7 2) DO ! FOR EACH WORD IN THIS WRITE REQUEST 
4233 BEGIN 
4234 
4235 -IOB_ADDR = ..SRC_ADDR; ! MOVE 1 WORD 
4236 IOB_ADDR = .I0B_ ADDR + 2; ! ADVANCE DESTINATION ADDRESS 
4237 SRC_ADDR = ‘SRC_ ADDR + 2; ! ADVANCE SOURCE ADDRESS 
4238 IF ~MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
4239 THEN ' THEN 
4240 BEGIN 
4241 
4242 IF (.IOB_ADDR AND #0'17777') EQLU 0 ! IF I/0 BUFFER CROSSES A 4K PAGE BOUNDARY 
4243 THEN ! THEN 
4244 BEGIN 
4245 
4246 IOB_ADDR = #0‘ 100000’; ! RESET VIRTUAL ADDRESS 
4247 KTPARS = .KTPAR4 + #0'200'; ' ADVANCE PAR TO NEXT 4K PAGE 
4248 
4249 END; 
4250 
4251 END; ' END - IF MEMORY MANAGEMENT 
4252 
4253 COUNT = .COUNT - 1; ! DECREMENT COUNT 
4254 IF .COUNT EQLU 0 ' IF END OF DATA PATTERN 
4255 THEN ! THEN 
4256 BEGIN 


COUNT = ..DP_ADOR; REPEAT DATA PATTERN 


SRC_ADDR = .DP_ADDR + 2; 


ileal eee ee tee le ek ek ek eh ee ee 
> 
g 


fe 
tw 
Os 
~ 
PPLE ANMAAE PUTS BS PWWUWUWUWUU NNN UWUAWUWUWRUUNUUUWUWE Pe bbeabuuw 
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SEQ 0300 

CZ2RCD3S CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 109 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1:(AZTEC.CZRCOB JCZRCD3. SRC;17 (37) 
s 261 3 END; 
3 4262 3 
3 pees . END; ! WORD TRANSFER LOOP 
> 265 2 IF .MEM_MGMT ! IF SYSTEM HAS MEMORY MANAGEMENT 
> 4266 2 THEN ! THEN 
>; 4267 2 KTPAR4 = #0'1000'; ! RESTORE PAR4 
>; 4268 2 
> 4269 2: END; ! ROUTINE FILL_BUFF 

-SBTTL FILL.BUFF MULTI-DRIVE SUBTEST ROUTINES 
000000 004137 000000G FILL .BUFF: 

JSR R1,$SAVES 3 4147 
000004 024646 CMP -(SP),-CSP) 
000006 105737 000000G TSTB SWP.FLAGS ; 4183 
000012 100003 BPL i$ 
000014 012702 000000G MOV #SWP .UCNT,R2 ; *,DP.ADDR 4185 
000020 000445 BR S$ : 4183 
000022 005000 is: CLR RO ; 4189 
000024 153700 000000G BISB SWP.DPAT,RO 
000030 005700 TST RO 
000032 001402 BEQ es 
000034 010001 MOV RO,R1 ; *,DP.NUM 4191 
000036 000414 BR 3$ ; 4189 
000040 013700 000000G 2s: MOV L$LUN,RO ; 4195 
000044 062700 000540’ ADD #DPST,RO 
000050 005001 CLR R1 ; DP.NUM 
000052 151001 BISB (RO),R1 ; *,DP.NUM 
000054 105210 INCB CRO) F 4196 
000056 121027 000025 CMPB (RO), #25 F 4197 
000062 101402 BLOS 3$ 
000064 112710 000001 MOVB #1,(RO) ; 4199 
000070 010100 3$: MOV R1,RO ; OP.NUM,« 4203 
000072 006200 ASL RO 
000074 016002 001642: MOV DPA. TBL-2(RO),R2 ; *,DP.ADDR 
000100 020127 000021 CMP R1,4#21 ; OP.NUM,« 4204 
000104 103413 BLO S$ 
000106 013700 000606’ MOV MAD1,RO 5 4210 
000112 006001 ROR Ri ; DP.NUM 4208 
000114 103004 BCC 4$ 
000116 016062 000044 000002 MOV 44(RO),2(R2) ; *,*(DP.ADDR) 4210 
000124 000403 BR 5$ ; 4208 
000126 916062 000044 000004 4$: MOV 44(RO),4(R2) ; *,*(DP.ADDR) 4212 
000134 013701 000606' 53: MOV MAD1,R1 3 4218 
000140 016104 000030 MOV 30(R1),R4 ; *,I0B.ADOR 
000144 005066 000002 CLR 2(SP) 3 4219 
000150 113766 000000G 000002 MOVB MEM.MGMT ,2(SP) 
000156 032766 000001 000002 BIT #1,2(SP) 
000164 001431 BEQ 6$ 
000166 010405 MOV R4,R5 ; IOB.ADDR,DISP 4223 
000170 042705 160000 BIC #160000,R5 ; *,DISP 
000174 019446 MOV R4,-(SP) ; IOB.ADDR,«# 4224 
000176 012746 177772 MOV #-6,-(SP) 
000202 004737 000000G JSR PC ,BL$SHF 
0002C6 019003 MOV RO,R3 3; *,PAF 
000219 042703 176177 BIC #176177,R3 3 *,PAF 





é. 








rm 


C—O eS 
















SEQ 0301 
CZRCO3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 110 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB IJCZRCD3.SRC;17 (37) 
000214 016100 000032 MOV 32(R1),RO : 4225 
000220 090300 SWAB RO 
000222 105000 CLRB RO 
000224 006300 ASL RO 
000226 006300 ASL RO 
000230 010337 172350 MOV R3 8172550 ; PAF,# 
000234 050037 172350 BIS RO ,8#172350 , 
000240 010504 MOV RS,R4 ; DISP,IO0B.ADDR 4226 
000242 052704 100000 BIS #100000,F4 ; *,I0B.ADDR 
000246 022626 CMP (SP)+,(SP)+ ; 4221 
000250 011205 6$: MOV (R2),R5 ; DP.ADDR, COUNT 4230 
000252 012716 000002 MOV #2,(SP) ; 4231 
000256 060216 ADD R2,(SP) ; DOP.ADDR,* 
000260 011603 MOV (SP) ,R3 s *,SRC.ADOR 
00C262 016146 000024 MOV 24(R1),-(SP) ; 4232 
000266 012746 000002 MOV #2,-(SP) 
000272 004737 000000G JSR PC ,BLSDIV 
000276 005001 CLR R1 3 N 
000300 000422 BR 9$ 
000302 012324 7$: MOV (R3)+,(R4)+ s SRC.ADOR,I0B.ADOR 4235 
000304 032766 000001 000006 BIT #1,6(SP) 3 4238 
000312 001410 BEQ 8$ 
000314 022704 017777 BIT #17777 ,R4 ; *,I0B.ADOR 4242 
000320 0C1005 BNE 8$ 
000322 012704 100000 MOV #-100000 ,R4 +; *,I0B.ADOR 4246 
000326 062737 000200 172350 ADD #200 ,84172350 ; 4247 
000334 005305 8$: DEC RS 3 COUNT 4253 
000336 001003 BNE 9$ ; 4254 
000340 011205 MOV (R2),R5 ; DP.ADDR, COUNT 4258 
000342 016603 000004 MOV 4(SP),R3 + *,SRC.ADDR 
000346 005201 9$: INC Ri ; N 


000350 020100 CMP R1,R0 N,* 
000352 003753 BLE 7$ 

000354 032766 000001 000006 BIT #1,6(SP) 
000362 001403 BEQ 10$ 

000364 012737 001000 172350 MOV #1000, #172350 
000372 062706 000010 10$: ADD #10,SP 

000376 000207 RTS 


; Routine Size: 128 words, Routine Base: $CODE$ + 11424 
; Maximum stack depth per invocation: 11 words 











— 


SS 





— 





SEQ 0302 

CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 111 
vo2.0 MULTI-ORIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER$1:([AZTEC.CZRCDB ICZRCD3.SRC;17 (38) 
8 arte : ROUTINE PROC_RETPKT : NOVALUE = 
8 te 
’ 4273 1 ! THIS ROUTINE IS CALLED FROM THE MULTI_ORIVE “EXECUTIVE” TO CHECK FOR 
3 4274 1 ! AND PROCESS ANY RETURN PACKETS THAT HAVE BEEN “SENT” BY THE “DRIVER” 
F 4275 1 ! PORTION OF THE PROGRAM. THE I/O DONE QUEUE (IO0Q) ACTS AS THE LINK 
’ 4276 1 ! BETWEEN THE TWO PROGRAM PARTS; IT HOLDS INDECES OF RETURN PACKETS WHICH 
8 prs : ! REQUIRE PROCESSING. 
. o 
3 4279 1 ! UNDER THE MULTI-DRIVE SUBTEST, RETURN PACKETS ORIGINATE FROM TWO 
8 4280 1 H SOURTES: 
3 4281 1 : 1. DISK MSCP - THE MORE COMMON, DESCRIBING A COMPLETED 1/0 
3 4282 1 ! OPERATION 
3 4283 1 ! 2. THE PROGRAM “DRIVER” - DESCRIBING A CONTROLLER ERROR OR 
8 4284 1 ! COMMAND TIMEOUT. 
: 4285 1 !- 
8 4287 2 BEGIN 
$ aan 4 i NEQU .I0DQ_OUT DO ' DO UNTIL I/O DONE QUEUE IS EMPTY 
3 4292 3 RP_INDX = OUT_IODQ (); ! GET INDEX OF NEXT RETPKT AND ADVANCE OUT POINTER 
s 4293 3 RP_ADDR = RETPKT + (.RP_INDX # RP_LEN * 2); ! CALCULATE RETPKT ADDRESS 
3 4294 3 SET_CPAR (.RP_ADDR [CTLR]); ! SET UP CURRENT CONTROLLER PARAMETERS 
8 pre : oar”. mae -RP_ADDR [CONID] OF ! CONNECTION ID INDICATES PACKET SOURCE 
8 4297 3 {[CID_DISK] : IO_RETPKT (); ! DISK MSCP (I/O TRANSFER DONE) 
3 ane 4 catalan : DR_RETPKT (); ' MESSAGE FROM “DRIVER” 
: 4301 2 END; ! UNITL I/0 DONE QUEUE IS EMPTY 
3 4303 1 END; ! ROUTINE PROC_RETPKT 

-SBTTL PROC.RETPKT MULTI-DRIVE SUBTEST ROUTINES 
000000 023737 000000G 000000G PROC .RETPKT: 
000000 i$: CMP I00Q.IN, IODQ.OUT F 4289 
000006 001444 BEQ 4$ 
000010 004737 000000G JSR PC ,OUT.IO0DQ 3 4292 
000014 010037 000000G MOV RO,RP.INDX 
000020 010046 MOV RO,-(SP) ; RP.INDX,* 
000022 012746 000060 MOV #60, -CSP) 
000026 004737 000000G JSR PC ,BL$MUL 
000032 062700 000000G ADD #RETPKT,RO 
000036 010037 000000G MOV RO,RP.ADDR 
000042 116016 000002 MOVB 2(RO), (SP) 3 
000046 042716 177760 BIC #177760, (SP) 
000052 004737 000000G JSR PC,SET.CPAR 
000056 013700 000000G MOV RP .ADDR,RO 3 
000062 116000 000003 MOVB 3(RO),RO 
000066 042700 177400 BIC #177400,RO 
000072 001003 BNE 2s 3 
000074 004737 000000V JSR PC,I0.RETPKT 
000100 000405 BR 3$ =f 
000102 020027 000003 2s: CMP RO, #3 ; 
000106 001002 BNE 3$ 
000110 004737 000000V JSR PC ,OR.RETPKT 
000114 022626 3$: CMP (SP)+,(SP)-+ 3 
000116 000730 BR 1$ : 
000120 000207 4$: RTS PC F 
; Routine Size: 41 words, Routine Base: $CODE$ + 12024 


; Maximum stack depth per invocation: 3 words 
L 
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END; 


8 4304 1 ROUTINE IO_RETPKT : NOVALUE = 

3 4305 1 

; 4306 1 ts 

; 4307 1 ! THIS ROUTINE IS CALLED BY PROC_RETPKT TO HANDLE ALL I/O TRANSFER 

3 4308 1 ! RETURN PACKETS. PROCESSING OF THESE PACKETS INCLUDES DECLARING ANY 

F 4309 1 ! HARD ERRORS THAT MAY HAVE OCCURRED, UPDATING THE STATISTICS, AND 

F seit 1 H PERFORMING HOST WRITE-COMPARES IF REQUIRED. 

3 4311 1 ! 

F 4312 1 H IMPLICIT INPUTS: 

3 4313 1 ! RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 

F 4314 1 ! CCTLR - CURRENT CONTROLLER NUMBER 

8 4315 1 !- 

: 4316 1 

8 4317 2 BEGIN 

3 4318 2 

3 4319 2 SWEEP_FLAG = TRUE; ! INDICATES THAT SWEEP () WILL BE CALLED 
; 4320 2 FSET_UPAR (); ! FIND UNIT’S ENTRY IN CST AND SET UP UNIT-RELATED DATA 
F 4321 2 ST_CODE = .RP_ADDR [STSCOD); . GET STATUS CODE FROM RETPKT 

PF 4322 2 SB_CODE = .RP_ADDR [SUBCOD]; ! GET SUB-CODE, IF ANY 

3 4323 2 IF .ST_CODE NEQU ST_SUC ! IF STATUS CODE INDICATES ERROR 

8 4324 2 THEN ! THEN 

3 4325 3 BEGIN 

3 4326 3 ; 

8 4327 3 IF .ST_CODE EQLU ST_OFL ! IF UNIT OFFLINE 

: 4328 3 THEN ! THEN 

F 4329 4 BEGIN 

3 4330 4 

8 4331 4 ERRDF (19, EGD_19, EMS_19); ! “FATAL I/0 ERROR” 

3 4332 4 DUR [.L$LUN] = DU_FATAL; ' LOAD REASON FOR DROPPING UNIT 

F 4333 4 DODU (.L$LUN); ' DROP UNIT 

F 4334 4 

3 4335 4 END 

3 4336 3 SE ! ELSE - ERROR IS NOT UNIT-OFFLINE 
; 4337 4 BEGIN 

F 4338 4 

3 4339 4 CASE .ST_CODE 

; 4340 4 FROM 1 TO 11 OF 

F 4341 4 SET 

5 4342 4 (1) : ERRHRD (31, EGH_30, EMS_30); ! INVALID COMMAND 

: 4343 4 [2] : ERRHRD (32, EGH_30, EMS_30); ! COMMAND ABORTED 

8 4344 4 (3) :s ! UNIT OFFLINE (DEVICE-FATAL) 
s 4345 4 [4] : ERRHRD (34, EGH_30, EMS_30); ! UNIT AVAILABLE 

F 4346 4 (5) : ERRHRD (35, EGH_30, EMS_30); ! MEDIA FORMAT ERROR 

s 4347 4 [6] : ERRHRD (36, EGH_30, EMS_30); ! WRITE-PROTECTED 

8 4348 4 {7] : ERRHRD (37, EGH_30, EMS_30); ' DEVICE COMPARE ERROR 

$ 4349 4 (8) : ERRHRD (38, EGH_30, EMS_30); ! DATA ERROR 

3 4350 4 [9] : ERRHRD (39, EGH_30, EMS_30); ! HOST BUFFER ACCESS ERROR 
5 4351 4 [10] : ERRHRD (40, EGH_30, EMS_30); ! CONTROLLER ERROR 

3 4352 4 (11) : ERRHRD (41, EGH_30, EMS_30); ! DRIVE ERROR 

3 4353 4 C{OUTRANGE] : ERRHRD (30, EGH_30, EMS_30); ! UNKNOWN 

s 4354 4 TES; 

$ 4355 4 

F ts 4 HARD_ERR (1); ! INCREMENT HARD ERROR COUNT FOR CURRENT UNIT 
3 4357 4 

3 3 

F 3 

F 3 


END 
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MULTI-DRIVE SUBTEST ROUTINES 


ELSE 
BEGIN 


MD_TALLY (); 
IF BIT_TST (SWP_FLAGS, SWF_HWC) 
THEN 


HOST_WRT_CHK (); 
END; 
IF .SWEEP_FLAG EQLU TRUE 
THEN 
SWEEP (); 
QIO [.CCTLR) = .QIO [.CCTLR) - 1; 


END; 


14 
14 


-SBTTL IO.RETPKT 


000000 010146 cum 

V 
000002 112737 000001 000630’ MOVB 
000010 004737 000000V JSR 
000014 013700 0000006 MOV 
000020 116037 000016 0000006 MOVB 
000026 042737 177740 000000G BIC 
000034 016001 000016 MOV 
000040 006201 ASR 
000042 006201 ASR 
000044 006201 ASR 
000046 006201 ASR 
000050 006201 ASR 
000052 042701 174000 BIC 
000056 010137 000000G MOV 
000062 013700 0000006 MOV 
000066 001521 BEQ 
000070 020027 000003 CMP 
000074 001013 BNE 
000076 104455 TRAP 
000100 000023 - WORD 
000102 000000G - WORD 
000104 000000G - WORD 
000106 013700 000000G MOV 
000112 112760 000004 000000G MOVB 
000120 104451 TRAP 
000122 000513 BR 
000124 005300 1$: DEC 
000126 020027 000012 CMP 
000132 101003 BHI 
000134 006300 ASL 
000136 066007 000010’ ADD 
000142 104456 3$: TRAP 
000144 000036 - WORD 
000146 0000006 - WORD 
000150 0000006 - WORD 
000152 000461 BR 
000154 104456 4$: TRAP 

m 








R1,-(SP) 

#1,SWEEP .F 
PC ,FSET.UP 
RP .ADDR,RO 
16(RO),ST. 
#177740,ST 
16(RO),R1 


#174000,R1 
R1,SB6.CODE 
ST .CODE,RO 
15$ 
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! ELSE - I/0 WAS SUCCESSFUL 

UPDATE I/0 STATISTICS 

— IS DOING WRITE-COMPARES 

SAVE I/0 PACKET OR DO WRITE-CHECK 

— IS STILL TRUE 

DEALLOCATE BUFFERC(S) AND RETPKT(S) 

DECREMENT NO. OF OUTSTANDING QIOS 

ROUTINE IO_RETPKT 

MULTI-DRIVE SUBTEST ROUTINES 
; 4304 

LAG 3 4319 

AR 3 4320 
H 4321 

CODE 

.-CODE 
F 4322 
; 4323 
; 4327 
i 4331 
; 4332 
; 4333 
3 4327 
; 4339 

PC ; Case dispatch 
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000156 090037 -WORD 37 

000160 000000G WORD EGH.30 

000162 000000G WORD EMS.30 

000164 000454 BR 14$ : 

000166 104456 5$: TRAP 56 ; 

000170 000040 -WORD 40 

000172 000000G WORD EGH.30 

000174 000000G WORD €EMS.30 

000176 000447 BR 14$ ; 

000200 104456 6$: TRAP 56 ; 

000202 000042 -WORD 42 

000204 000000G WORD EGH.30 

000206 000000G WORD EMS.30 

000210 000442 BR 14$ : 

000212 104456 7$: TRAP 56 ; 

000214 000043 «WORD 43 

000216 000000G WORD EGH.30 

000220 000000G WORD €&MS.30 

000222 000435 BR 14$ : 

000224 104456 8$: TRAP 56 ; 

000226 000044 WORD 44 

000230 000000G WORD EGH.30 

000232 000000G WORD €EMS.30 

000234 0C0430 BR 14$ ; 

000236 104456 9$: TRAP 56 ; 

000240 000045 WORD 45 

000242 000000G WORD EGH.30 

000244 0000006 WORD €EMS.30 

000246 000423 BR 14$ : 

000250 104456 10$: TRAP 56 : 

000252 000046 WORD 46 

000254 000000G WORD EGH.30 

000256 000000G WORD €&MS.30 

000260 000416 BR 14$ ; 

000262 104456 11$: TRAP 56 ; 

000264 000047 -WORD 47 

000266 000000G WORD EGH.30 

000270 000000G WORD €&MS.30 

000272 000411 BR 14$ ; 

000274 104456 12$: TRAP 56 ; 

000276 000050 -WORD 50 

000300 000000G WORD EGH.30 

000302 000000G WORD €&MS.30 

000304 000404 BR 14$ : 

000306 104456 13$: TRAP 56 ; 

000310 000051 WORD 51 

000312 000000G WORD EGH.30 

000314 000000G -WORD EMS.30 

000316 012746 000001 14$: MOV #1,-(SP) ; 

000322 004737 000000G JSR PC,HARD.ERR 

000326 005726 TST (SP)+ H 

000330 000410 BR 16$ : 

000332 004737 000000V 15$: JSR PC,.MD. TALLY 3 

000336 132737 000100 000000G BITB #100,SWP .FLAGS H 

000344 001402 BEQ 16$ 

000346 004737 000000V JSR PC,HOST.WRT.CHK ; 

000352 123727 000630’ 000001 16$: CMPB SWEEP.FLAG, #1 H 
¥% A RRR, NT 


- 








CZRCD3 
vo2.0 


000360 
000362 
000366 
000372 
000376 
000400 


000010 


000010 
000012 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 








001002 
004737 
013700 
105360 
012601 
000207 


; Routine Size: 
3; Maximum stack depth per invocation: 3 words 


000144 
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BNE 17$ 
000000V JSR PC ,SWEEP ; _ 4373 
000000G 17$: MOV CCTLR,RO ; 4374 
000000G DECB QIOCRO) 
MOV (SP)+,R1 ; 4304 
RTS PC 


129 words, Routine Base: $CODE$ + 12146 


-PSECT $PLIT$, RO, OD 


P.AAB: ; CASE Table for I0.RETPKT+0136 

2s: -WORD 12 ; (4$] 
WORD 24 ; (5$) 
-WORD 154 ; (14$] 
-WORD 36 ; (6$) 
WORD 50 ; (7$) 
-WORD 62 ; (8$) 
«WORD 74 : (9$] 
WORD 106 ; (10$] 
WORD 120 ; (118) 
WORD 132 ; (12$] 
WORD 144 + [139] 


CZRCD3 
vo2.0 


012550 
000000 


000004 
000010 


: Routine Size: 
; Maximum stack depth per invocation: 6 words 





3 
3 
3 
3 
8 
8 
s 
F 
F 
3 
8 
8 
F 
$ 
$ 4391 
: 
F 
3 
F 
3 
F 
: 
3 
3 
: 
3 
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004137 


012702 
010201 
006301 
063701 
013700 
005003 
151103 
020360 
001005 
010246 
004737 
005726 
000207 
005202 
020227 
003754 
000207 
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ROUTINE FSET_UPAR : NOVALUE = 


* 


THIS ROUTINE IS CALLED BY IO_RETPKT AND OTHERS TO SEARCH THE CURRENT 
CONTROLLER STATUS TABLE (CST) FOR THE PLATTER ADDRESS WHICH IS 
CONTAINED IN THE CURRENT RETURN PACKET. WHEN FOUND, THE OFFSET INTO THE 
CST IS USED AS INPUT TO SET_UPAR, WHICH SETS UP CURRENT UNIT-RELATED 
DATA PARAMETERS. 


IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF CURRENT RETURN PACKET 
CST_ADDR - ADDRESS OF CURRENT CONTROLLER'S CST 


BEGIN 
sag ** FROM C(O + OF_UN) TO (3 + OF_UN) DO ! FOR EACH UNIT IN CST 
EGIN 


IF .CST_ADDR [.OFFSET, P_ADDR] EQLU .RP_ADDR [PLAT] ! — UNIT NUMBER MATCHES CST ENTRY 
THEN ' 


BEGIN 
SET_UPAR ( .OFFSET); ! SET UP UNIT-RELATED DATA 
RETURN; ! DONE 
END; 
END; ! CST UNIT SEARCH LOOP 
END; ! ROUTINE FSET_UPAR 
-SBTTL FSET.UPAR MULTI-DRIVE SUBTEST ROUTINES 
-PSECT $CODE$, RO 
000000G FSET.UPAR: 
JSR R1, $SAVE3 F 
000003 MOV #3 ,R2 ; *,OFFSET 
1$: MOV R2,R1 ; OFFSET,* 
ASL R1 
000000G ADD CST.ADDR,R1 
000000G MOV RP .ADDR,RO 
CLR R3 
BISB CR1),R3 
000010 cmMP R3,10CRO) 
BNE 2s 
MOV R2,-C(SP) ; OFFSET,«* 
000000G JSR PC,SET.UPAR 
TST (SP)+ 3 
RTS PC 3 
2s: INC R2 ; OFFSET 
000006 CMP R2, #6 ; OFFSET,«# 
BLE i$ 
RTS PC 3 
25 words, Routine Base: $CODE$ + 12550 
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010146 


013700 
126027 
001020 
013746 
012746 
004737 
013700 
013701 
066160 
012716 
000421 
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ROUTINE MD_TALLY : NOVALUE = 


ee ee ee ee oe ee a) ee 
* 


BEGIN 
IF .RP_ADDR [ENDCOD] EQLU (OP_RD + OP_END) ! IF ENDCODE IS READ 
THEN ! THEN 

BEGIN 


ELSE 


THIS ROUTINE IS CALLED FROM IO_RETPKT FOR ALL I/O TRANSFER RETURN 
PACKETS WITH “SUCCESS” STATUS CODES. ITS PURPOSE IS TO UPDATE ALL THE 
APPROPRIATE STATISTICAL FIELDS FOR THE CURRENT UNIT. A CHECK IS ALSO 
MADE ON THE TOTAL NUMBER OF BYTES TRANSFERRED THUS FAR; IF THE 
OPERATOR-SPECIFIED LIMIT HAS BEEN REACHED, THEN THE UNIT IS REMOVED 


FROM CURRENT PASS TESTING. 
IMPLICIT INPUTS: 


RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
T_ADDR - ADDRESS OF THE CURRENT UNIT'S STATISTICS BLOCK (TALLY) 
L$LUN - CURRENT (DRS) UNIT NUMBER 


UPD_IOC (T_ADOR [READ_LOJ, 1); 
T_ADDR [BR_LO) = .T_ADDR [BR_LO) + 
OVF_CHK (T_ADDR [BR_LO)); 


END 
BEGIN 
UPD_IOC (T_ADDR [WRIT_LOJ, 1); 


T_ADDR [BW_LO) = .T_ADDR (BW_LO) + 
OVF_CHK (T_ADDR [BW_LO)); 


END; 
IF .CPT [.L$LUN] 
THEN 
XFR_CHK (); 
END; 
.SBTTL 
MD.TALLY: 
MOV 
000000G MOV 
000014 000241 CMPB 
BNE 
000000G MOV 
000001 MOV 
000000G JSR 
000000G MOV 
000000G MOV 
000020 000014 ADD 
000014 ~ 
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! INCREMENT NO. OF READS 
-RP_ADDR (BCNT_LOJ; ! UPDATE BYTE COUNT 
! CHECK FOR FIELD OVERFLOW 


! ELSE ENDCODE IS WRITE 


! INCREMENT NO. OF WRITES 
-RP_ADDR (BCNT_LO); ! UPDATE BYTE COUNT 
! CHECK FOR FIELD OVERFLOW 


2 c—" IS STILL UNDER TEST 

H 
! CHECK MBYTES XFR‘D AGAINST LIMIT 
! ROUTINE MD_TALLY 


MD.TALLY MULTI-DRIVE SUBTEST ROUTINES 


R1i,-(SP) Hy 
RP .ADDR,RO ; 
14(RO), #241 


1$ 

T. ADDR ,-C(SP) ; 

#1,-(SP) 

PC,UPD.IOC 

T.ADOR ,RO ; 

RP .ADOR,R1 

20(R1),14(RO) 

SA sers ; 
$ 





013746 
062716 
012746 
004737 
013700 
013701 
066160 
012716 
060016 
004737 

13700 
132760 
001402 
004737 
022626 
012601 
000207 


; Routine Size: 
; Maximum stack 
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000022 


00G 
000001 0000006 


000000G 


54 words, 


depth per invocation: 





1$: 


2s: 


3$: 


Routine Base: 


4 words 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


T.ADOR , -( SP) 
4 ,CSP) 


#1,-(CSP) 

PC ,UPD.IOC 

T. ADDR ,RO 

RP .ADDOR,R1 
20(R1),22(RO) 
#22, (SP) 


L$LUN,RO 
oe 


$ 
PC ,.XFR.CHK 
(SP)+,(SP)+ 
(SP)+,R1 
PC 


$CODE$ + 12632 


VAX-11 Bliss-16 V4.0-579 
USER $1: (AZTEC. CZRCOB JCZRCD3. SRC; 17 
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ROUTINE HOST_WRT_CHK : NOVALUE = 
te 


BEGIN 
LOCAL 


THIS ROUTINE IS CALLED FROM IO_RETPKT FOR ALL I/O TRANSFER RETURN 
PACKETS WITH “SUCCESS” STATUS CODES, BUT ONLY IF THE HOST WRITE-COMPARE 
OPTION WAS SELECTED BY THE OPERATOR. 


IF THE CURRENT RETPKT BEING PROCESSED IS A WRITE FUNCTION, THEN THE 
PACKET INDEX (RP_INDX) IS SAVED IN THE CONTROLLER'S RETURN PACKET SAVE 
AREA (RP_SAVE). OTHERWISE, THE PACKET IS A READ, SO ITS ASSOCIATED 
WRITE PACKET IS REMOVED FROM THE SAVE AREA, AND A WORD-FOR-WORD 
COMPARISON IS PERFORMED ON THE TWO I/O BUFFERS. ANY DIFFERENCES 
ENCOUNTERED RESULTS IN THE DECLARATION OF A HARD ERROR. 


IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 
RP_INDX - INDEX OF THE CURRENT RETURN PACKET 
RPS_X1, RPS_X2 - STARTING / ENDING INDECES OF THE CURRENT 
CONTROLLER'S RETPKT SAVE AREA (RP_SAVE) 


BUFF W, ! ADDR OF I/0 BUFFER DESCRIPTOR 
INDEX : SIGNED WORD; 


IF .RP_ADDR [ENDCOD) EQLU (OP_WRT + OP_END) ! IF WRITE OPERATION 
THEN ! THEN 


BEGIN 
INCR INDEX FROM .RPS_X1 TO .RPS_xX2 DO ' LOOK FOR SPARE ENTRY IN 
BEGIN ! CONTROLLER'S RP_SAVE 
IF .RP_SAVE [. INDEX] LSS 0 ! IF SPARE SLOT FOUND 
THEN ! THEN 
BEGIN 
RP_SAVE [. INDEX] = .RP_INDX; ! SAVE INDEX OF WRITE RETPKT 
EXITLOOP; ! DONE 
END; 
END; 
SWEEP_FLAG = FALSE; ! DON’T CALL SWEEP FROM IO_RETPKT 
END 
SE ! ELSE ENDCODE IS READ 
BEGIN 
IF CINDEX = RPS_REM ()) GEQ 0 ! IF ASSOCIATED WRITE PACKET IS FOUND 
THEN ! THEN 
BEGIN 
BUFFW = RETPKT [ .INDEX,- BUFF_0O); ! ADDR OF ADDR OF WRITE I/0 BUFFER 
ee (.BUFFW) EQLU FAILURE H —— DATA IN BOTH BUFFERS. IF FAILURE 
H ! 
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3s Routine Size: 
3 Meximum steck 


| 
= 
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ERRHRD (42, EGH_30, EMS_42); ! “I/0 REQUEST FAILED” 
HARD_ERR (1); ! INCR HARD ERROR STATISTIC 
END; ! IF COMPARE ERROR 
PUT_IO_BUFF (.BUFFW); ! RETURN WRITE I/O BUFFER TO POOL 
PUT_RETPKT ( . INDEX); ! PUT BACK WRITE RETPKT 
END; ! IF ASSOCIATED WRITE RETPKT WAS FOUND 
END; ! IF ENDCODE WAS READ 
END; ! ROUTINE HOST_WRT_CHK 
-SBTTL HOST.WRT.CHK MULTI-DRIVE SUBTEST ROUTINES 
000000G HOST .WRT.CHK: 
JSR R1,$SAVE2 3 4449 
000000G MOV RP .ADDR, RO 3 4476 
000014 000242 oy a amet 
000000G MOV RPS.X1,RO ; *, INDEX 4480 
DEC RO 3; INDEX 
BR 2$ 
000000G 1$: itd eas 3; *C INDEX) 4483 
000000G 000000G ~ ta. ee ES 3s #,*#C INDEX) 
PF 
2s: INC RO s INDEX 
000000G ao ee ; INDEX, 
000630' 3$: CLRB SWEEP. FLAG ; 
RTS PC 8 
000000V 4$: JSR PC ,.RPS.REM 3 
MOV RO,R2 ; *, INDEX 
BLT 6% 
MOV R2,-(SP) s INDEX, 
000060 MOV #60, -(SP) 
000000G JSR PC ,BL$MUL 
000024G Sy ADD ORETPKT+24,RO 
MOV Ri 3; *,BUFFW 
MOV R1,(SP) ; BUFFW,« 
000000V JSR PC,.CMP .DATA 
TST RO 
BNE 5s 
TRAP 56 3 
-WORD 52 
-WORD EGH.30 
-WORD €EMS.42 
000001 MOV #1,(SP) 3 
000000G JSR PC ,HARD.ERR 
53: MOV R1,(SP) 3; BUFFW,e 
000000G JSR PC PUT .I0. BUFF 
MOV ) 3s INDEX, 
000000G JSR PC PUT .RETPKT 
CMP (SP)+,(SP)- PF 
63: RTS PC 3 
59 words, Routine Bese: sCODE$ + 13006 


depth per invocetion: 7 words 











SEQ 0312 


COUNT : WORD; 


RESULT = SUCCESS; 

WBDO = ..BUFFW; 

WBD1 = .(.BUFFW + 2); 
RBDO = .RP_ADOR [BUFF_0]; 
RBD1 = .RP_ADOR [BUFF_1]); 


INCR I FROM 1 TO .COUNT DO 
BEGIN 


ee eee CSS SSCS TOBE CECE ADOD ESD OO EO Go 
Ey 


fs 
uw 
ui 
— 
BEND 10.1010 4 GF 8 GF 8 8 8 8 8 G8 G8 00-000 0.0 90.70 0. 70 0. 70 90 70 0 0 0 ee ee be ee pe ee be pe pe 


IF ..WBDO EQLU ..RBDO 











— 
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4522 ROUTINE CMP_DATA (BUFFW) = 
4523 
4524 te 
4525 : THIS ROUTINE IS CALLED BY HOST_WRT_CHK TO PERFORM THE ACTUAL WORD-BY- 
4526 g WORD COMPARISON BETWEEN THE READ BUFFER DESCRIBED IN THE CURRENT RETURN 
4527 g PACKET AND ITS ASSOCIATED WRITE BUFFER. A VALUE OF “SUCCESS” IS 
4528 : RETURNED IF THE TWO BUFFERS ARE IDENTICAL. OTHERWISE, “FAILURE” IS 
4529 2 RETURNED. 
4530 : 
4531 : INPUTS: 
a 2 BUFFW - ADDRESS OF THE WRITE BUFFER DESCRIPTOR 
45 : 
4534 : IMPLICIT INPUTS: 
4535 4 RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET (READ OPERATION) 
4536 =. 
4537 
4538 BEGIN 
4539 
4540 LOCAL 
4541 RESULT : WORD, ! SUCCESS / FAILURE 
4542 WBDO : WORD, ! WRITE BUFFER DESCRIPTOR (WORD 0) 
4543 WBD1 : WORD, ! WRITE BUFFER DESCRIPTOR (WORD 1) 
4544 RBDO : WORD, ! READ BUFFER DESCRIPTOR (WORD 0) 
4545 RBD1 : WORD, ! READ BUFFER DESCRIPTOR (WORD 1) 
4546 DISP : WORD, ! 4K PAGE DISPLACEMENT ADDR 
4547 PAF ; WORD ! PAGE ADDRESS FIELD 
' 


BUFFER WORD COUNT 


ASSUME BLUE SKY 

WRITE BUFFER DESCRIPTOR (WORD 0) 
WRITE BUFFER DESCRIPTOR (WORD 1) 
READ BUFFER DESCRIPTOR (WORD 0) 
READ BUFFER DESCRIPTOR (WORD 1) 


4555 IF .MEM_MGMT IF SYSTEM HAS MEMORY MANAGEMENT 
4556 THEN THEN 

4557 BEGIN 

4558 

4559 DISP = .WBDO AND #0‘17777'; ! WRITE BUFFER DISPLACEMENT 
4560 PAF = (.WBDO t+ -6) AND #0'1600'; $ PAGE ADORESS FIELD 

4561 KTPAR4 = (.WBD1 t 10) OR .PAF; ' LOAD PAR4 

pas | “BDO = #0‘100000' OR .DISP; ! WRITE BUFFER VIRTUAL ADDRESS 
456 

4564 DISP = .RBDO AND #0'17777'; ' READ BUFFER DISPLACEMENT 
4565 PAF = (.RBDO t+ -6) AND #0'1600'; ' PAGE ADDRESS FIELD 

4566 KTPARS = (.RBD1 + 10) OR .PAF; ' LOAD PARS 

4567 RBDO = #0'120000' OR .DISP; ' READ BUFFER VIRTUAL ADDRESS 
4568 

4569 END; 

4570 

4571 IF (COUNT = .RP_ADDR [BCNT_LO) / 2) NEQU O ! IF WORD COUNT IS NON-ZERO 
4572 THEN ! THEN 

4573 BEGIN 


FOR EACH WORD IN BUFFERS 


IF WORDS COMPARE 0.K. 





ee 
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THEN ! THEN 
BEGIN 


WBDO = .WBDO + 2; 





ADVANCE WRITE BUFFER ADDRESS 

! ADVANCE READ BUFFER ADDRESS 
i HAS MEMORY MANAGEMENT 
! TH 


» 
o 
=] 
°o 
« 
P*] 
o 
~J 
o 
* 
f 


IF (.WBDO AND #0'17777') EQLU O ! IF WRITE BUFFER CROSSES 4K PAGE BOUNDARY 
THEN ! THEN 
BEGIN 


WBDO = #0'100000'; RESET VIRTUAL ADDRESS 
KTPAR4 = .KTPAR4 + #0'200'; ! ADVANCE PAR TO NEXT 4K PAGE 


END; 
IF (.RBDO AND #0'17777') EQLU O ! 
THEN 

BEGIN 


RBDO = #0'120000'; RESET VIRTUAL ADDRESS 
KTPARS = .KTPARS + #0'200'; ! ADVANCE PAR TO NEXT 4K PAGE 


END; 
END; ! END - IF MEMORY MANAGEMENT 


BUFFER CROSSES 4K PAGE BOUNDARY 
H 


END 
E 
BEGIN 


RESULT = FAILURE; ! FAILED 
EXITLOOP; ! NO NEED TO CONTINUE 


END; 
END; ! WORD COMPARE LOOP 
END; ! IF WORD COUNT IS NON-ZERO 
IF .MEM_MGMT IF SYSTEM HAS MEMORY MANAGEMENT 
THEN THEN 
BEGIN 


KTPAR4 = #0'1000'; ! RESTORE PAR‘S 
KTPARS = #0'1200'; 


END; 
RETURN .RESULT; 
END; 


! OTHERWISE - COMPARE ERROR 


ee ee ee ee Oe OEE OF COOKED KREG ee oe ee 
o 
ui 


> 
8 
FVMNVNNAWAAWYUNYN UWS BUNUN eNO D SSIS ODORS SOOO OU 


ROUTINE CMP_DATA 


-SBTTL CMP.DATA MULTI-DRIVE SUBTEST ROUTINES 











—- 


SS ES 





—< 
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000000 0094137 000000G CMP .DATA: 

JSR Ri, $SAVES H 4522 
000004 012746 000001 MOV #1,-(SP) + *,RESULT 4550 
000010 017604 000020 MOV @20(SP),R4 ; BUFFW,WBDO 4551 
000014 016609 000020 MOV 20(SP),RO ; BUFFW,«# 4552 
000020 016046 000002 MOV 2(RO), -CSP) ; *,WBD1 
000024 013701 000000G MOV RP .ADDR,R1 ; 4553 
000030 016105 000024 MOV 24(R1),R5 ; *,RBDO 
000034 016146 000026 MOV 26(R1),-CSP) ; *,RBD1 4554 
000040 005046 CLR -(SP) ; 4555 
000042 113716 000000G MOVB MEM.MGMT, (SP) 
000046 032716 000001 BIT #1,(SP) 
000052 001462 BEQ 1$ 
000054 010402 MOV R4,R2 ; WBDO,DISP 4559 
000056 042702 160000 BIC #160000,R2 ; *,DISP 
000062 010446 MOV R4,-(SP) ; WBDO,« 4560 
000064 012746 177772 MOV #-6,-(SP) 
000070 004737 000000G JSR PC ,BL$SHF 
000074 010003 MOV RO,R3 ; *,PAF 
000076 042703 176177 BIC #176177,R3 3 *,PAF 
000102 016600 000010 MOV 10(SP),RO ; WBD1,+# 4561 
000106 000300 SWAB RO 
000110 105000 CLRB RO 
000112 0C6300 ASL RO 
000114 006300 ASL RO 
000116 010337 172350 MOV R3 84172350 ; PAF,* 
000122 050037 172350 BIS RO ,84172350 
000126 010204 MOV R2,R4 ; DISP,WBDO 4562 
000130 052704 100000 BIS #100000,R4 ; *,WBDO 
000134 010562 MOV R5,R2 ; RBDO,DISP 4564 
0090136 042702 160000 BIC #160000, R2 ; *,DISP 
000142 010516 MOV R5,(SP) ; RBDO,« 4565 
000144 012746 177772 MOV #-6,-(SP) 
000150 004737 000000G JSR PC ,,BL$SHF 
000154 010003 MOV RO,R3 3 *,PAF 
000156 042703 176177 BIC #176177,R3 3; *,PAF 
000162 016600 000010 MOV 10(SP),RO ; RBD1,* 4566 
000166 666300 SWAB RO 
000170 105000 CLRB RO 
000172 006300 ASL RO 
000174 006300 ASL RO 
000176 010337 172352 MOV R3 94172352 ; PAF,* 
000202 050037 172352 BIS RO ,84172352 
000206 010205 MOV R2,R5 ; DISP,RBDO 4567 
000210 052705 120000 BIS #120000,R5 ; *,RBDO 
000214 062706 000006 ADD #6 ,SP H 4557 
000220 016146 000020 1$: MOV 20(R1),-(SP) ; 4571 
000224 012746 000002 MOV #2,-(CSP) 
000230 004737 000000G JSR PC ,BL$DIV 
000234 022626 CMP (SP)+,(SP)+ 
000236 005700 TST RO ; COUNT 
000240 001442 BEQ 6$ 
000242 005001 CLR R1 s I 4575 
000244 000435 BR 5$ 
000246 021415 2s: CMP (R4),(R5) ; WBDO,RBDO 
000259 001030 BNE 4$ 
000252 062704 000002 ADD #2,R4 ; *,WBDO 

& a rR RRR SA Se AR nn 


-—: 
































SEQ 0315 
CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 127 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB ICZRCD3.SRC;17 (43) 
000256 062705 000002 ADD #2,R5 ; *,RBDO 4583 
000262 032716 000001 BIT #1,(SP) 3 4584 
000266 001424 BEQ 5$ 
000270 032704 017777 BIT #17777,R4 ; *,WBDO 4588 
000274 001005 BNE 3$ 
000276 012704 100000 MOV #-100000 ,R4 ; *,WBDO 4592 
000302 062737 000200 172350 ADD #200 ,8#172350 3 4593 
000310 032705 017777 3$: BIT #17777,R5 ; *,RBDO 4597 
000314 001011 BNE 5$ . 
000316 012705 120000 MOV #-60000,R5 ; *,RBDO 4601 
000322 062737 000200 172352 ADD #200 ,84172352 8 4602 
000330 000403 BR 5$ ; 4578 
000332 005066 000006 4$: CLR 6( SP) ; RESULT 4612 
000336 000403 BR 6$ F 4610 
000340 005201 5$: INC R1 ? 4575 
000342 020100 CMP R1,RO ; I,COUNT 
000344 003740 BLE 2$ 
000346 032716 000001 6$: BIT #1,(SP) 3 4621 
000352 001406 BEQ 7$ 
000354 012737 001000 172350 MOV #1000, 84172350 3 4625 
000362 012737 001200 172352 MOV #1200, 84172352 3 4626 
000370 016600 000006 7$: MOV 6(SP),RO ; RESULT,« 4538 
000374 062706 000010 ADD #10,SP 3 4522 
000400 0C0207 RTS PC 
; Routine Size: 129 words, Routine Base: $CODE$ + 13174 


; Maximum stack depth per invocation: 14 words 











nr 
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ROUTINE SWEEP : NOVALUE = 


+ 


THIS ROUTINE IS CALLED FROM IO_RETPKT AND OTHERS TO DEALLOCATE THE 
RESOURCES ASSOCIATED WITH THE CURRENT RETURN PACKET. THIS INCLUDES THE 
PACKET ITSELF AND THE I/O BUFFER. IN ADDITION, IF THE HOST IS 
PERFORMING WRITE-COMPARES, AND IF THE CURRENT RETURN PACKET IS A READ 
FUNCTION, THEN THE CURRENT CONTROLLER'S RP_SAVE AREA IS SEARCHED FOR 
— ae WRITE RETPKT SO THAT ITS RESOURCES CAN ALSO BE 

LL . 


IMPLICIT INPUTS: 
RP_ADDR - ADDRESS OF CURRENT RETURN PACKET 
RP_INDX - INDEX OF CURRENT RETURN PACKET 


BEGIN 


LOCAL 
INDEX : SIGNED WORD; 


IF (.RP_ADDR [ENDCOD] AND OP_MSK) EQLU OP_RD - ! IF READ OPCODE OR ENDCODE 
HEN ! THEN 
BEGIN 
IF BIT_TST (CSWP_FLAGS, SWF_HWC) ! IF HOST IS DOING WRITE-COMPARES 
THEN THEN 
BEGIN 
IF CINDEX = RPS_REM ()) GEQ 0 ! IF ASSOCIATED WRITE RETPKT IS FOUND 
ma eee ! THEN 
N 


PUT_IO_BUFF CRETPKT [.INDEX, BUFF_0]); ! RETURN WRITE I/0 BUFFER TO POOL 
PUT_RETPKT ( . INDEX); ! RETURN WRITE PACKET TO POOL 


END; 
END; 
END; 


PUT_IO_BUFF (RP_ADDR [BUFF_0O)); ! RETURN CURRENT I/0 BUFFER TO POOL 
PUT_RETPKT (.RP_INDX); ! RETURN CURRENT RETPKT TO POOL 


END; ! ROUTINE SWEE? 


SSS SSH SASK SAHHAHAHHKSHHKHAHESHSOSEHKHHKSHSEOHEHKHEKEHEHHKEOE HES 
b 
oO 
ui 
ui 


FMM MMOD CEES BUNUN UU & & BB OF OF O80 1010 10 10.10.10 Fe ee ee ee ee ee ee ee ee 


-SBTTL SWEEP MULTI-DRIVE SUBTEST ROUTINE 
000000 010146 SWEEP: MOV Ri,-(SP) ; 
000002 013700 000000G MOV RP .ADDR, RO H 
000006 116000 000014 MOVB 14(RO),RO 

000012 042700 177600 BIC #177600,RO 

000016 020027 000041 CMP RO, #41 

000022 001026 = BNE is 

000024 132737 000100 000000G BITB #100,SWP.FLAGS H 
000032 001422 BEQ 1$ 











—- 





CZRCO3 
vo2.0 


; Routine Size: 





004737 
010001 
002416 
010146 
012746 
004737 
062700 
010016 
004737 
010116 
004737 
022626 
023746 
062716 
004737 
013716 
004737 
005726 
012601 
000207 


CZRCOBO RC25 DISK EXERCISER 
MULTI-DRIVE SUBTEST ROUTINES 


000000V 


000060 
000000G 
000024G 


000000G 

000000G 

000000G 1$: 
000024 

000000G 


000000G 
000000G 


45 words, Routine Base: 


; Maximum stack depth per invocation: 4 words 


— 








ce 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


PC,RPS.REM 
RO,R1 

1$ 

Ri, -(SP) 

#60, -CSP) 

PC ,BL$MUL 
#RETPKT +24 ,RO 
RO, (SP) 
PC,PUT.I0.BUFF 
R1,(SP) 

PC ,PUT.RETPKT 
(SP)+,(SP)+ 

RP .ADDR, -( SP) 
#24,(SP) 

PC ,PUT.I0.BUFF 
RP .INDX, (SP) 
PC ,PUT .RETPKT 


$CODE$ + 13576 
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H 4662 
: *, INDEX 


; INDEX,« 4666 


: INDEX,« 






(Se = ee ee ce tem 


CZRCD3 
vo2.0 


3 
3 
; 
; 
H 
3 
; 
b 
7 
o 
3 
: 
3 
; 
+ 
a 
3 
° 
; 4704 
; 
5 
; 
a 
3 
; 
" 
° 
> 
b 


> 
s 
So 
ui 
PNM NM AAS SONU AUS U1 & BOF OF OF GEN P0.10.0.10 10 1010 Fe ee be ee ee ee ee he he pe ee pe pe 


000000 004137 
000004 012704 
000010 013701 





—- 
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ROUTINE RPS_REM = 


+ 


THIS ROUTINE SEARCHES THE CURRENT CONTROLLER'S RP_SAVE AREA FOR A 
RETURN PACKET WHOSE COMMAND REFERENCE NUMBER (CRN) IS ONE LESS THAN THE 
CRN OF THE CURRENT RETURN PACKET (I.€., SEARCHING FOR THE SAVED WRITE 
OPERATION ASSOCIATED WITH THE CURRENT READ OPERATION). IF FOUND, THE 
RP_SAVE ENTRY IS CLEARED (TO -1) AND THE RETPKT INDEX OF THE WRITE 
OPERATION IS RETURNED TO THE CALLER. 


IMPLICIT INPUTS: 
RP_ADDR - ADORESS OF THE CURRENT RETURN PACKET 
RPS_X1, RPS_X2 - STARTING / ENDING INDECES OF THE CURRENT 
CONTROLLER'S RP_SAVE AREA 


OUTPUTS: 
INDEX (VALUE OF THIS ROUTINE) - INDEX OF THE RETPKT CONTAINING 
A CRN WHICH IS ONE LESS THAN THE CURRENT 


BEGIN 


LOCAL 
INDEX : SIGNED WORD, 
TEMP : SIGNED WORD; 


INDEX = -1; 
INCR COUNT FROM .RPS_X1 TO .RPS_X2 DO 
BEGIN 


ASSUME NOT FOUND 
FOR EACH ENTRY IN RP_SAVE 


IF (TEMP = .RP_SAVE [.COUNT]) GEQ 0 te IS A VALID RETPKT INDEX 
EN H 


BEGIN 
IF .RETPKT [.TEMP, CRF_LO) EQLU (.RP_ADDR [CRF_LO] - 1) ! IF CORRECT CRN 
THEN ! THEN 
BEGIN 
INDEX = .TEMP; ' INDEX TO BE RETURNED 
RP_SAVE [.COUNT] = -1; ! INIT ENTRY 
EXITLOOP; ' DONE 
END; 
END; ! IF VALID RETPKT INDEX 
END; ! RP_SAVE ENTRY LOOP 
RETURN .INDEX; 
END; ! ROUTINE RPS_REM 
-SBTTL RPS.REM MULTI-DRIVE SUBTEST ROUTINES 
000000G RPS.REM: JSR R1,$SAVE4 3 
177777 MOV #-1,R4 ; *, INDEX 
000000G MOV RPS.X1,R1 ; *, COUNT 





CZRCO3 CZRCDBO RC25 DISK EXERCISER 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 


000020 116103 0000006 1s: 
000030 012746 000060 
000034 004737 0000006 


000042 013702 0000006 
000046 016202 000004 


000054 026002 0000046 


000064 112761 000377 0000006 


000074 005201 2s: 
000076 020137 000000G 


000104 010400 3$: 





; Routine Size: 36 words, Routine Base: 
; Maximum stack depth per invocation: 8 words 








— 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


R4,R1 

2$ 
on 
R3, -CSP) 

#60, -(SP) 

PC ,BL$MUL 
(SP)+,(SP)+ 

RP .ADOR,R2 
4(R2),R2 

R2 


a 
$ 

R3,R4 

eh el cena: 


R1 
R1,RPS.X2 
i$ 

R4,RO 

PC 


$CODE$ + 13730 
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; *, COUNT 

: *CCOUNT), TEMP 4709 

; TEMP,«* 4713 
TEMP , INDEX 4717 
*, *( COUNT) 


COUNT 
COUNT, * 


; INDEX, « 


NS 










SEQ 0320 
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SET UP UNIT-RELATED PARAMETERS 
“I/0 REQUEST FAILED” 


FSET_UPAR (); 
ERRHRD (43, EGH_30, EMS_43); 


’ 4730 1 ROUTINE DR_RETPKT : NOVALUE = 

; 4731 1 

: 4732 1 te 

3 4733 1 ! THIS ROUTINE IS CALLED BY PROC_RETPKT FOR ALL PACKETS ORIGINATING AT 
: 4734 1 ! THE “DRIVER” PORTION OF THE PROGRAM. THIS INCLUDES PACKETS DESCRIBING 
3 pit : : FATAL DEVICE ERRORS AND INDIVIDUAL COMMAND TIMEOUTS. 

H ! 

Fy 4737 1 ! FOR FATAL DEVICE ERRORS, THIS ROUTINE RELEASES ALL RESOURCES HELD BY 
3 4738 1 ! THE CONTROLLER. THE CONTROLLER IS MARKED OFFLINE IN ITS CST, AND ALL 
3 4739 1 ! UNITS ATTACHED TO THE CONTROLLER ARE DROPPED. IF THE RETURN PACKET 

3 4740 1 ! DESCRIBES A COMMAND TIMEOUT, THEN A HARD ERROR IS DECLARED FOR THE 

H 4741 1 ! APPROPRIATE UNIT. 

F 4742 1 ! 

F 4743 1 ! IMPLICIT INPUTS: 

3 4744 1 ! RP_INDX - INDEX OF THE CURRENT RETURN PACKET 

; 4745 1 ! RP_ADDR - ADDRESS OF THE CURRENT RETURN PACKET 

; 4746 1 ! RPS_X1 - STARTING / ENDING INDECES OF THE CURRENT CONTROLLER’S 
3 4747 1 ! RETPKT SAVE C(RP_SAVE) AREA 

Fy 4748 1 ' CST_ADDR - ADDRESS OF THE CURRENT CONTROLLER’S CST 

8 4749 1 ! CCTLR - CURRENT CONTROLLER NUMBER 

3 4750 1 !- 

3 4751 1 

3 4752 2 BEGIN 

; 4753 2 

; 4754 2 LOCAL 

Hy ping 2 INDEX : SIGNED WORD; 

; 4 2 

H 4757 2 IF .RP_ADDR [MESTYP] EQLU MT_FATAL ! IF FATAL CONTROLLER ERROR 
3 4758 2 THEN ! THEN 

: 4759 3 BEGIN 

8 4760 3 

H 4761 3 PUTA_BUFF (); ! RELEASE ALL I/O BUFFERS HELD BY CONTROLLER 
3 4762 3 INCR COUNT FROM .RPS_X1 TO .RPS_X2 DO ! FOR EACH ENTRY IN CONTROLLER'S RP_SAVE 
Fy 4763 4 BEGIN 

; 4764 4 

F 4765 4 IF CINDEX = .RP_SAVE [.COUNT]) GEQ 0 ! IF VALID RETPKT INDEX 

3 4766 4 THEN ! THEN 

H 4767 5 BEGIN 

3 4768 5 

i 4769 5 PUT_RETPKT ( . INDEX); ! RETURN RETPKT TO POOL 

; 4770 5 RP_SAVE [.COUNT] = -1; ! INIT ENTRY 

F 4771 5 

; 4772 4 END; 

5 4773 4 

; 4774 : END; ! RP_SAVE ENTRY LOOP 

; 4775 

H 4776 3 QIO (.CCTLR] = 0; ' CLEAR NO. OF OUTSTANDING QIOS 
3 4777 3 CST_ADDR [STATE] = OFFLINE; ! MARK CST OFFLINE 

F 4778 3 DROP_CTLR €.CCTLR, DU_FATAL); ! DROP CONTROLLER‘S UNITS 

3 4779 3 PUT_RETPKT (.RP_INDX); ! PUT BACK RETPKT 

F 4780 3 

F 4781 3 END 

3 4782 2 E ! ELSE - COMMAND TIMEOUT 

3 4783 3 BEGIN 

Fy 3 

3 3 

; 3 











—-- 













SEQ 0321 
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4787 3 HARD_ERR (1); ! INCREMENT HARD ERROR STAT FOR UNIT 

4788 3 SWEEP (); ! RETURN RESOURCES 

pa 04 : QIO (.CCTLR) = .QI0 [.CCTLR) - 1; ! DECREMENT NO. OF OUTSTANDING QIOS 

4791 2 END; 

4792 2 

4793 1 END; ! ROUTINE DR_RETPKT 

-SBTTL OR.RETPKT MULTI-DRIVE SUBTEST ROUTINES 
000000 004137 000000G DR.RETPKT: 
JSR R1, $SAVE3 F 4730 

000004 013700 000000G MOV RP .ADDR, RO 3 4757 
000010 116000 000002 MOVB 2CRO),RO 
000014 042700 177417 BIC #177417,R0 
000020 020027 000060 CMP RO, #60 
000024 001051 BNE 3$ 
000026 004737 000000G JSR PC ,PUTA. BUFF : 4761 
000032 013703 000000G MOV RPS.X2,R3 3 4762 
000036 013701 000000G MOV RPS.X1,R1 : *,COUNT 
000042 005301 DEC R1 : COUNT 
000044 000412 BR 2s 
000046 116102 000000G 1$: MOVB RP .SAVECR1),R2 ; *CCOUNT), INDEX 4765 
000052 002407 BLT 2$ 
000054 010246 MOV R2,-CSP) ; INDEX,« 4769 
000056 004737 000000G JSR PC ,PUT.RETPKT 
000062 112761 000377 000000G MOVB #377,RP.SAVECRL) ; *,*(COUNT) 
000070 005726 TST (SP)+ 3 
000072 005201 2s: INC R1 ; COUNT 
000074 020103 CMP R1,R3 ; COUNT,« 
000076 003763 BLE 1$ 
000100 013701 000000G MOV CCTLR,R1 : 
000104 105061 000000G CLRB QIOCR1) 
000110 013700 000000G MOV CST. ADDR ,RO F 
000114 042760 100000 000002 BIC #100000, 2(RO) 
000122 010146 MOV R1i,-(SP) ; 
000124 012746 000004 MOV #4,-(SP) 
000130 004737 000000G JSR PC,DROP.CTLR 
000134 013716 000000G MOV RP .INDX, (SP) F 
000140 004737 000000G JSR PC ,PUT.RETPKT 
000144 005726 TST (SP)+ 3 
000146 000420 BR 4$ 3 
000150 004737 012550' 3$: JSR PC,.FSET.UPAR ; 
000154 104456 TRAP 56 ; 
000156 000053 WORD 53 
000160 000000G WORD €EGH.30 
000162 000000G -WORD €EMS.43 
000164 012746 000001 MOV #1,-(SP) 3 
000170 004737 000006G JSR PC,HARD.ERR 
000174 004737 013576' JSR PC ,SWEEP 3 
000200 013700 000000G MOV CCTLR,RO : 
000204 105360 000000G DECB QIOCRO) 
000210 005726 4$: TST (SP)+ 3 
000212 000207 RTS PC ; 
; Routine Size: 70 words, Routine Base: $CODE$ + 14040 


; Maximum stack depth per invocation: 7 words 








—- 













SEQ 0322 


BEGIN 


CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 1 
vo2.0 MULTI-DRIVE SUBTEST ROUTINES 14-Jun-1985 09:33:42 USER $1: [AZTEC.CZRCDB JCZRCD3. SRC; 17 (47) 
: 4794 1 ROUTINE DRV_TIMCHK : NOVALUE = 

3 4795 1 

; 4796 1 t+ 

; 4797 1 ! THIS ROUTINE IS CALLED ONCE PER SECOND FROM EITHER THE MULTI-ORIVE 

; 4798 1 ! SUBTEST EXECUTIVE (MULTI_DRIVE) OR THE DM EXERCISER SUBTEST EXECUTIVE 

’ 4799 i H (DM_EXER). ITS PURPOSE IS TO DECREMENT THE TIMING COUNTS FOR ALL 

’ oes : ! OUTSTANDING COMMANDS, AND TO PROCESS ANY THAT REACH ZERO. 

; 4801 H 

$ 4802 1 ' A COMMAND TIMER THAT REACHES ZERO CAN MEAN ONE OF TWO THINGS. IF THE 

; 4803 1 ! OWNERSHIP BIT OF THE ENVELOPE DESCRIPTOR OF THE TIMED OUT COMMAND 

F 4804 1 ! INDICATES THAT THE SLOT IS STILL CONTROLLER-OWNED, THEN THE CONTROLLER 

; 4805 1 ! IS ASSUMED DEAD. A DEVICE-FATAL ERROR IS DECLARED AND ALL CONTROLLER- 

8 4806 1 ! RELATED DATA IN THE “DRIVER” ARE INITIALIZED. IF THE AFOREMENTIONED 

; 4807 1 ! OWNERSHIP BIT INDICATES THAT THE SLOT HAS BEEN RETURNED TO THE HOST, OR 

3 4808 1 ! IF THE ENVELOPE DESCRIPTOR SLOT FOR THE TIMED OUT COMMAND CANNOT BE 

$ 4809 1 ! FOUND (I.E., OVERWRITTEN WITH ANOTHER DESCRIPTOR), THEN ONLY THE 

3 4810 1 ! COMMAND IS ASSUMED LOST. 

3 4811 1 H 

3 4812 1 ! IN EITHER CASE, A RETURN PACKET IS SET UP WHICH DESCRIBES THE 

; 4813 1 H CONDITION, AND “SENT” TO THE “EXERCISER”. 

3 4814 1 !- 

; 4815 1 

3 4816 2 BEGIN 

F 4817 2 

$ 4818 2 LOCAL 

3 4819 2 M_INDEX : SIGNED WORD, ! MSCP ENVELOPE INDEX 

F 4820 2 M_ADODR, ! MSCP ENVELOPE ADDRESS 

3 4821 2 CR_ADOR, ! COMMAND RING (C-RING) ADDRESS 

3 poe ; TYPE : WORD; ! TYPE OF ERROR 

: 482 

F 4824 2 INCR CNTLR FROM O TO (MAX_CTLR - 1) DO ! FOR EACH CONTROLLER 

: 4825 3 BEGIN 

F 4826 3 

:; 4827 3 SET_CPAR (.CNTLR); ! SET UP CONTROLLER-RELATED DATA 

3 4828 3 IF .CST_ADDR [STATE] EQLU ONLINE ! IF CONTROLLER IS ONLINE 

; 4829 3 THEN ! THEN 

F 4830 4 BEGIN 

3 4831 4 

3 4832 4 INCR COUNT FROM .OCL_X1 TO .OCL_xX2 DO ! FOR EACH OUTSTANDING COMMAND ENTRY 

s 4833 5 BEGIN 

F 4834 5 

; 4835 5 IF (M_INDEX = .QUTC_LIST [.COUNT]) GEQ 0 ! IF ENTRY HOLDS VALID MSCP INDEX 

3 4836 5 THEN ! THEN 

3 4837 6 BEGIN 

3 4838 6 

3 4839 6 OUTC_TIMR [.COUNT]) = .OUTC_TIMR [.COUNT] - 1; !' DECREMENT COMMAND TIMER 

3 4840 6 IF .OUTC_TIMR [.COUNT] EQLU 0 ' IF COMMAND TIMED OUT 

3 4841 6 THEN ! THEN 

$ 4842 7 BEGIN 

; 4843 7 

F 4844 7 OUTC_LIST [.COUNT]) = -1; ' KILL OUTC ENTRY 

3 4845 7 M_ADDR = MSCP_ENV + (.M_INDEX # ENV_LEN «# 2); ' CALCULATE MSCP ENV ADDRESS 
Fy 4846 7 CR_ADDR = .DCT_ADDR [(CR_BEG]; ! GET START OF C-RING 
3 4847 7 TYPE = MT_TIMEOUT; ! ASSUME COMMAND TIMED OUT 
3 4848 7 INCR SLOT FROM 1 TO CRING_LEN DO ! FOR EACH CRING SLOT 
Hy 8 

3 8 











— 
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9 IF ..CR_ADDR EQLA (.M_ADDR + 8) ! IF THIS SLOT HOLDS TIMED OUT COMMAND 

8 THEN ! THEN 

9 BEGIN 

9 

9 CR_ADDR = .CR_ADDR + 2; ! ADVANCE TO HI-ORDER WORD 

10 IF BIT_TST (.CR_ADDR, ED_OWN) ! IF SLOT IS STILL CTLR-OWNED 

9 THEN ! THEN 

+4 BEGIN 

1 

10 WRT_RC25 CRCIP, RC_ALL, ALL_ONES); ! WRITE IP TO STOP DEVICE 

10 L$LUN = .CST_ADDR [OF_UN, P_UNIT); ! 1ST UNIT @ IN CTLR 

10 ERRDF (20, EGD_20, EMS_20); ! “CONTROLLER TIMEOUT” 

10 DRV_CTLERR ( .CNTLR); ! CLEAN UP CTLR DATA IN ORIVER 

10 TYPE = MT_FATAL; ! CHANGE TYPE TO FATAL ERROR 

10 

; END; ! IF SLOT STILL CTLR-OWNED 

: EXITLOOP ; ! EXIT C-RING SLOT SEARCH LOOP 

: END; ‘ ! IF COMMAND SLOT IS FOUND 

8 CR_ADDR = .CR_ADOR + 4; ! ADVANCE TO NEXT C-RING SLOT 

8 

: END; ! C-RING SLOT SEARCH LOOP 

7 IF CRP_INDX = GET_RETPKT (.CNTLR)) GEQ 0 ! IF RETPKT IS AVAILABLE 

7 THEN ! THEN 

; BEGIN 

8 RP_ADDR = RETPKT + (.RP_INDX * RP_LEN # 2); 

8 IF _.TYPE EQLU MT_TIMEOUT ! IF COMMAND TIMEOUT 

8 THEN ! THEN 

9 BEGIN 

9 

9 COPY_BLK (.M_ADDR + 4, .RP_ADDR, RP_LEN); ! COPY COMMAND TO RETPKT 

9 PUT_ENV (.M_INDEX); ! RETURN COMMAND ENVELOPE TO POOL 

9 

8 END; ! IF TYPE = COMMAND TIMEOUT 

8 

8 RP_ADDR [CTLR) = .CNTLR; ! LOAD CTLR @ INTO RETPKT 

8 RP_ADDR [MESTYP] = .TYPE; ! LOAD TYPE 

8 RP_ADOR [CONID] = CID_ORIVER; ! LOAD PACKET ORIGINATOR 

8 IN_IODQ (.RP_INDX); ! PASS RETPKT TO EXERCISER VIA I00Q 

8 

7 END; ! IF RETPKT IS AVAILABLE 

7 

6 END; ! IF COMMAND TIMER REACHED ZERO 

6 

5 END; ! IF OUTC ENTRY HOLDS A COMMAND ENVELOPE INDEX 

5 

a END; ! OUTSTANDING COMMAND ENTRY LOOP 

4 

: END; ! IF CONTROLLER IS ONLINE 

2 END; ! CONTROLLER LOOP 

2 

2 T_FLAG = FALSE; ! CLEAR ENTRY FLAG 
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END; ! ROUTINE ORV_TIMCHK 





JSR R1, $SAVES ; 4794 
000006 SuB #6 ,SP 









CLR R3 ; CNTLR 4824 
000000G JSR PC ,SET.CPAR 
000000G MOV CST. ADDR ,RO H 4828 

















014762' JMP 11$ 
000000G 2$: MOV OCL.X1,R1 s *,COUNT 4832 
DEC Ri s COUNT 
014746' 3$: JMP 10$ 
000000G 4$: MOVB OUTC .LISTCR1),RO s *(COUNT),« 4835 
000006 ang ee 3 *,M. INDEX 
MOV R1,RO s COUNT,« 4839 
ASL RO 
000000G DEC OUTC.TIMRCRO) 
BNE 10$ ; 4840 
000377 000000G MOVB #377 ,QUTC.LISTCR1) s #,#(COUNT) 4844 
000006 MOV 6(SP), (SP) s M.INDEX,« 4845 
000104 MOV #104 ,-(SP) 
000000G JSR PC ,BL$MUL 
000000G ADD @MSCP.ENV,RO 
000004 MOV RO,4(SP) s *,M.ADOR 
000000G MOV DCT. ADDR ,RO ; 4846 
000010 MOV 10(€RO),RS s #,CR.ADOR 
000004 000006 MOV 04,6(SP) s #, TYPE 4847 
000004 MOV 4(SP),R4 : M.ADOR,« 4851 







000010 MOV #10,R2 + *,SLOT 4848 
S$: oar + ae s CR.ADOR,« 4851 













000002 ADD #2,R5 s #,CR.AODR 4855 
MOV CRS) ,RO s CR.ADOR,« 
077777 BIC #77777,RO 
100000 CMP RO, @-100000 
BNE 7$ 
177777 MOV #-1,RO0 + #,RC.REG 
000000G MOV RO,@RC25 . ADDR s RC.REG,« 
000000G MOV CST.ADOR ,RO F 
000006 MOV 6(RO), -C SP) 
SWAB (SP) 
177740 BIC #177740, (SP) 
0000006 






MOV (SP)+,L$LUN 
55 






MOV R3,(SP 


. ) ; CNTILR ° s 
000000G JSR PC ,ORV.CTLERR 





C2RCO3 
vo2.0 


000254 
000262 


000462 
000466 
000470 
000472 
000474 
000500 
000502 
000506 
000510 
000512 
000516 
000520 
000524 
000530 
000534 





- 





000207 


; Routine Size: 
; Maximum stack 





CZRCOBO RC25 DISK EYERCISER 
MULTI-ORIVE SUBTEST ROUTINES 


000003 000006 


000004 


0000006 
000000G 


000060 

000000G 
000000G 
000000G 


000010 000004 


000006 
000004 


000030 
000000G 
000016 
000000G 


000000G 
000002 


177760 
000017 


000010 


177417 
000360 


000003 000001 


000000G 
000090G 


000000G 
014324' 


000003 
014266 ' 
000000G 
000006 


175 words, 


depth per invocation: 





6$: 


7$: 


8$: 


9$: 
10$: 


11$: 


12$: 


Routine Base: 
15 words 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


#3,6(SP) 
7$ 


4,R5 
Re 

5$ 
R3,(SP) 


PC GET .RETPKT 


4 RP. INDX 


R0, (SP) 
260, -( SP) 
PC, BL$MUL 
@RETPKT,RO 
RO,RP.ADOR 
10(SP),04 
8$ 


6(SP), (SP) 
04,(SP) 
RO,-(SP) 
#30, -(SP) 
PC ,COPY.BLK 
16(SP),(SP) 
PC,PUT.ENV 
(SP)+,(SP)+ 
RP .ADOR,RO 
#2,RO0 
R3,R2 
#177760,R2 


#177417,R2 
#360, (RO) 
R2,(RO) 
#3,10RO) 

RP .INDX, (SP) 
PC,.IN. I00Q 
(SP)-+ 

(SP)+ 

R 


$CODE$ + 14254 


a eeeeeteeeeeeereeeeeeeeeeeeeemeninmmemmemememmbemmememmnmmmmmemeemmmmnn i omemmennnmnternenneren cnet ere 


VAX-11 Bliss-16 V4.0-579 P 
USER$1:[AZTEC.CZRCOB JCZRCD3.SRC;17 (47) 










SEQ 0325 


«, TYPE 4864 
4853 
*,CR.ADOR 4872 
SLOT 4848 
CNTLR,« 4876 
RP. INDX,«# 4880 
TYPE, 4881 
M.ADOR,« 4885 
RP .ADOR, « 
M. INDEX, « 


CNTLR,* 


TYPE ,# 


COUNT 
COUNT, * 


CNTLR 
CNTLR,* 

















; SEQ 0326 

CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 140 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB JCZRCD3. SRC; 17 (48) 
3 4910 1 SSBTTL ‘RC25 INTERRUPT SERVICE ROUTINES’ 
8 4911 1 
3 49i2 1 Hes 
Fy 4913 1 : THERE EXISTS AN RC25 INTERRUPT SERVICE ROUTINE FOR EACH DEVICE 
: 4914 1 ! CONTROLLER. EACH SERVICE ROUTINE BEGINS BY SIMPLY SETTING THE 
Fy 4915 1 : APPROPRIATE CONTROLLER NUMBER INTO “ICTLR’. ALL SERVICE ROUTINES THEN 
8 pads 1 H BRANCH TO A COMMON INTERRUPT PROCESSING ROUTINE. 
Fy 491 1 !- 
8 4918 1 
8 4919 2 BGNSRV CRCINTO); 
Fy 4920 2 
: 4921 2 ICTLR = 0; 
3 4922 2 RCINT (); 
3 4923 2 
: 4924 1 ENDSRV; 

-SBTTL RCINTO RC25 INTERRUPT SERVICE ROUTINES 
000000 010046 RCINTO: : MOV RO,-(SP) 3 
000002 005037 000600: CLR ICTLR . 
000006 004737 000000V JSR PC ,RCINT 3 
600012 012600 MOV (SP)+,RO 3 
000014 000002 RTI 
; Routine Size: 7 words, Routine Base: $CODE$ + 15012 
; Maximum stack depth per invocation: 2 words 
: 4925 1 
8 4926 2 BGNSRV CRCINT1); 
: 4927 2 
§ 4928 2 ICTLR = 1; 
3 4929 2 RCINT (); 
F 4930 2 
8 4931 1 ENDSRV; 

-SBTTL RCINT1 RC25 INTERRUPT SERVICE ROUTINES 
900000 010046 RCINT1i::MOV RO, -(SP) F 
000002 012737 000001 000600' MOV #1,ICTLR 3 
000010 004737 O00000V - JSR PC ,RCINT ; 
000014 012600 MOV (SP)+,RO 5 
000016 000002 RTI 
; Routine Size: 8 words, Routine Base: $sCODE$ + 15030 
; Maximum stack depth per invocation: 2 words 
$ 4932 1 
s 4933 2 BGNSRV C(RCINT2); 
Fy 4934 2 
8 4935 2 ICTLR = 2; 
s 4936 2 RCINT (); 
3 4937 2 
5 4938 1 ENDSRV; 











000000 010046 
000002 012737 
000010 004737 
000014 012600 
000016 000002 


3; Routine Size: 
; Maximum stack 


4939 
4940 
4941 
4942 
4943 
4944 
4945 


PM MMe 


000000 010046 
000002 012737 
000010 0C4737 
000014 012600 
000016 000002 


; Routine Size: 
; Maximum stack 











ne A 






SEQ 0327 

CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1:([AZTEC.CZRCOB ICZRCO3. SRC;17 

-SBTTL RCINT2 RC25 INTERRUPT SERVICE ROUTINES 

RCINT2: : MOV RO, -(SP) F 

000002 000600' MOV #2,ICTLR ; 
000000V JSR PC,RCINT ; 

MOV (SP)+,RO 3 

RTI 
8 words, Routine Base: $CODE$ + 15050 


depth per invocation: 2 words 


BGNSRV (RCINT3); 


ICTLR = 3; 
RCINT (); 
ENDSRV; 
-SBTTL RCINT3 RC25 INTERRUPT SERVICE ROUTINES 
RCINT3: : MOV RO,-C(SP) 3 
000003 000600‘ MOV #3, ICTLR ; 
000000V JSR PC ,RCINT ; 
: MOV (SP)+,RO : 
RTI 
8 words, Routine Base: $CODE$ + 15070 


depth per invocation: 2 words 





CZRCD3 
vo2.0 


4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
4958 
4959 
4960 
4961 
4962 
4963 
4964 
4965 


SASHA SSAHAHSHRHRHHERHKDHAHKESHKKASHESSHHAEKEEHESEEHEK OHS 
> 
© 
o 
oO 





MON OB BBB BOB OF EID O80 10:10 90 10 10. 10 ee he Be ee ee he pe be pe pe 


010146 
005746 
004737 
013700 
013701 
016116 
011660 
032710 
001026 
132737 
001004 
132737 
001416 
016000 








CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 
RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 


ROUTINE RCINT : NOVALUE = 


* 


CALLED FROM THE MULTI-DRIVE SUBTEST “EXECUTIVE” (MULTI_DRIVE). 


BEGIN 

ISET_CPAR (); $ 

IDCT_ADDR [SA_SAVE] = .IRC25_ADDR (RCSA, RC_ALL]; ! SAVE SA REGISTER 
IF .IDCT_ADDR [IG_INT] EQLU YES ! IGNORE INTERRUPT? 
THEN 


RETURN; YES - RETURN 


THEN 
BEGIN 


IF BIT_TST CIDCT_ADDR [SA_SAVE], SA_ERR) 
THEN 
FATAL_ERROR () 
SE 
BEGIN 


POLL_CRING (); 
POLL_RRING (); 


IF FATAL ERROR 
THEN 


OTHERWISE 


POLL COMMAND RING 
POLL RESPONSE RING 


END; 
END; ! IF INIT SUBTEST OR DM EXERCISER 
END; ! ROUTINE RCINT 
-SBTTL RCINT RC25 INTERRUPT SERVICE ROUTINES 
RCINT: MOV R1,-C(SP) 3 4946 
TST -(SP) 
000000V JSR PC,ISET.CPAR 3 4963 
000566' MOV IDCT.ADDR,RO 3 4964 
000000G MOV IRC25.ADDR,R1 
000002 MOV 2(R1),(SP) ; *,RC.REG 
000002 MOV (SP),2CRO) ; RC.REG,« 
040000 cae ; *,IDCT.ADDR 
N $ ; 
000001 000000G — ee ee F 
000002 000000G dy er ee 
000002 1$: MOV 2(RO),RO ; 


VAX-11 Bliss-16 V4.0-579 Page 142 
USER$1:(AZTEC.CZRCDB JCZRCD3.SRC;17 (49) 


THIS IS THE COMMON INTE?KUPT SERVICE ROUTINE FOR ALL RC25 CONTROLLERS. 
AFTER SETTING UP THE CORMOLY-USED CONTROLLER-RELATED DATA ITEMS, THIS 
ROUTINE WILL SAVE |HE CURRENT CONTENTS OF THE SA REGISTER IN THE DCT. 
THEN, IF THE “IGNCRE INTERRUPT” BIT IS SET, NO FURTHER ACTION IS TAKEN. 


IF THE INITIALIZATION SUBTEST IS IN PROGRESS OR IF THE DM EXERCISER 
SUBTEST BEING RUN, THEN INTERRUPT PROCESSING CONTINUES BY CHECKING THE 
ERROR BIT OF THE SA REGISTER, AND POLLING THE COMMAND AND RESPONSE 
RINGS. OTHERWISE, THE INTERRUPT IS PROCESSED LATER WHEN INT_PROC IS 


SET UP CONTROLLER-RELATED PARAMETERS 


‘ 
IF (C.IIP_FLAG) OR (BIT_TST (SWP_FLAGS, SWF_DM)>) 4 INIT SUBTEST OR DM EXERCISER 
' 


DECLARE ERROR AND CLEAN UP 







SEQ 0328 


ee 








SEQ 0329 
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000062 042700 077777 BIC 477777 ,RO 
000066 020027 100000 cmMP RO, #-100000 
000072 001003 BNE 2$ 
000074 004737 000000V JSR PC,FATAL.ERROR 3 4974 
000100 000404 BR 3$ ; 4972 
000102 004737 000000V 2s: JSR PC ,POLL.CRING 3 4978 
000106 004737 000000V JSR PC ,POLL.RRING F 4979 
000112 005726 3$: TST (SP)+ 3 4946 
000114 012601 MOV (5P)+,R1 
000116 000207 RTS 
; Routine Size: 40 words, Routine Base: $CODE$ + 15110 


; Maximum stack depth per invocation: 3 words 














een 








SEQ 0330 

CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 144 
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: 4986 1 ROUTINE INT_PROC : NOVALUE = 
: 4987 1 
: 4988 1 te 
; 4989 1 ! THIS ROUTINE IS CALLED FROM THE “EXECUTIVE” OF THE MULTI-DRIVE SUBTEST 
8 4990 i ! TO PROCESS ANY RC25 INTERRUPTS WHICH MAY HAVE OCCURRED IN THE RECENT 
3 4991 1 ! PAST. 
8 4992 1 H 
; 4993 i ! IF EITHER THE INITIALIZATION SUBTEST OR DM EXERCISER SUBTEST IS BEING 
3 4994 1 H RUN, THEN INTERRUPTS ARE FULLY PROCESSED AS THEY OCCUR (SEE RCINT). 
3 4995 1 H OTHERWISE, FOR THE MULTI-DRIVE SUBTEST, INTERRUPTS ARE PROCESSED ON A 
3 4996 i ! DELAYED BASIS TO PREVENT PROGRAM PRINTOUTS FROM BEING BROKEN UP BY, 
3 roel 1 ! SAY, ERROR LOG MESSAGE PRINTOUTS. 
FY 9 1 : 
3 4999 1 ! AFTER SOME INITIALIZATION, THIS ROUTINE CONTINUES AS IF AN INTERRUPT 
8 5000 1 j HAS JUST OCCURRED: IF THE ERROR BIT OF THE SA REGISTER IS SET, THEN A 
8 5001 1 ! FATAL ERROR IS DECLARED. OTHERWISE, THE COMMAND AND RESPONSE RINGS ARE 
3 5002 1 ! POLLED. 
3 5003 1 H 
8 5004 1 ! IF NO INTERRUPT HAS OCCURRED IN THE RECENT PAST, THEN THE POLLING 
8 or 1 ! ROUTINES TAKE NO ACTION. 
3 006 1 ! 
8 5007 1 ! NOTE: ALL RC25‘S ARE ASSUMMED TO BE HARDWIRED AT BR LEVEL 5 OR LESS. 
8 5008 1 ! INTERRUPT PROCESSING RUNS AT LEVEL 5, AND CANNOT BE BROKEN BY AN 
F 5009 1 ! INTERRUPT FROM A SECOND RC25. 
8 5010 1 ! 
H 5011 1 ! IMPLICIT INPUTS: 
8 5012 1 : CCTLR - CURRENT CONTROLLER NUMBER 
8 5013 1 !- 
3 5014 1 
3 5015 2 BEGIN 
3 5016 2 
H 5017 2 SETPRI (PRIOS); ' LOCK OUT ALL RC25 INTERRUPTS 
3 5018 2 ICTLR = .CCTLR; ! FAKE INTERRUPTING CONTROLLER NUMBER 
3 5019 2 ISET_CPAR (); ! SET UP CONTROLLER-RELATED DATA 
3 5020 2 IDCT_ADDR [SA_SAVE] = .IRC25_ADDR [RCSA, RC_ALL]; ! SAVE SA REGISTER 
8 5021 3 IF BIT_TST CIDCT_ADDR [SA_SAVE], SA_ERR) ! IF FATAL ERROR 
3 5022 2 THEN 
5 5023 2 FATAL_ERROR () 
: 5024 2 LSE ! OTHERWISE 
F 5025 3 BEGIN 
s 5026 3 
3 5027 3 POLL_CRING (); ' POLL COMMAND RING 
3 5028 3 POLL_RRING (); ! POLL RESPONSE RING 
3 5029 3 
$ 5030 2 END; 
3 5031 2 
F oe 2 SETPRI (PRIOO); ! RESTORE PROCESSOR PRIORITY 
Hy 50 2 
3 5034 1 END; ' ROUTINE INT_PROC 

-SBTTL INT.PROC RC25 INTERRUPT SERVICE ROUTINES 
000000 010146 INT.PROC: 

MOV R1,-(SP) 3 4986 
000002 005746 TST -(SP) 
000004 012700 000240 MOV #240 ,RO ; 5017 
000010 104441 TRAP 41 











—-- 





- 






SEQ 0331 
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000012 013737 000000G 000600' MOV CCTLR,ICTLR PF 

000020 004737 000000V JSR PC ,ISET.CPAR 3 

000024 013701 000566‘ MOV IDCT.ADDR,R1 3 

000030 013700 000000G MOV IRC25. ADDR ,RO 

000034 016016 000002 MOV 2(RO), (SP) ; *,RC.REG 
000040 011661 000002 MOV (SP),2(R1) ; RC.REG,« 
000044 011601 MOV (SP),R1 8 

000046 042701 077777 BIC #77777,R1 - , 

000052 020127 100000 CMP R1,#-100000 

000056 001003 BNE 1$ 

000060 004737 000000V JSR PC,FATAL.ERROR ; 

000064 000404 BR 2s ; 

000066 004737 O000000V 1$: JSR PC,POLL.CRING ; 

000072 004737 CO0000V JSR PC ,POLL.RRING ; 

000076 005000 2$: CLR RO : 

000100 104441 TRAP 41 

000102 005726 TST (SP)+ ; 

000104 012601 MOV (SP)+,R1 

000106 000207 RTS PC 

; Routine Size: 36 words, Routine Base: $CODE$ + 15230 


; Maximum stack depth per invocation: 4 words 











— 


CZRCD3 
vo2.0 


000042 
000046 
000052 
000056 
000060 
000064 
000070 
000074 
000100 
000104 
000106 


3; Routine Size: 
; Maximum stack depth per invocation: 


3 
> 
Ww 


PO 0 P0100 10.00 ee ee ee pe pe 


010146 


013701 
010146 
012746 
004737 
062700 
010037 
010116 
012746 
004737 
062700 
010037 
011037 
010116 
012746 
004737 
062700 
010037 
062706 
012601 
000207 








CZRCOBO RC25 DISK EXERCISER 


RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (51) 
ROUTINE ISET_CPAR : NOVALUE = 
te 
! THIS ROUTINE IS CALLED BY RCINT AND INT_PROC TO SET UP THE COMMONLY- 
! USED DATA ITEMS FOR THE INTERRUPTING CONTROLLER. 
' 
! IMPLICIT INPUTS: 
! ICTLR - INTERRUPTING CONTROLLER NUMBER 
t. 
BEGIN 
IOCT_ADDR = DCT + (.ICTLR * DCT_LEN « 2); ! CALCULATE DCT ADDRESS 
ICST_ADDR = CST + (.ICTLR *« CST_LEN « 2); ! CALCULATE CST ADDRESS 
IRC25_ADDR = .ICST_ADDR [IP_ADDR]; ! GET RC25 ADDRESS 
ICOM_ADDR = COMM_AREA + (.ICTLR « COMM_LEN * 2); ! CALCULATE COMM_AREA ADDR 
END; ! ROUTINE ISET_CPAR 
-SBTTL ISET.CPAR RC25 INTERRUPT SERVICE ROUTINES 
ISET.CPAR: 
MOV R1,-CSP> 3 5035 
000600’ MOV ICTLR,R1L PF 5047 
MOV Ri,-CSP) 
000022 MOV #22,-CSP) 
000000G JSR PC, ,BL$MUL 
000000G ADD #DCT,RO 
000566‘ MOV RO, IDCT. ADDR 
MOV R1,(SP) 3 5048 
000016 MOV #16, -CSP) 
000000G JSR PC, ,BL$MUL 
000000G ADD #CST,RO 
000564’ MOV RO,ICST.ADDR 
000000G MOV (RO), IRC25.ACDR ; ICST.ADOR,*« 
MOV R1,(SP) F 
000110 MOV #110,-(CSP) 
000000G JSR PC ,BL$MUL 
000000' ADD #COMM. AREA,RO 
000560’ MOV RO, ICOM. ADDR 
000010 ADD #10,SP H 
MOV (SP)+,R1 H 
RTS PC 
36 words, Routine Base: $CODE$ + 15340 








SEQ 0332 
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6 words 








SEQ 0333 









CZRCDO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB ICZRCD3.SRC;17 
3 5053 1 ROUTINE FATAL_ERROR : NOVALUE = 
8 5054 1 
: 5055 1 te 
3 5056 i ! THIS ROUTINE IS CALLED BY BOTH RCINT AND INT_PROC UPON DETECTING AN 
3 5057 1 ! UNRECOVERABLE ERROR THROUGH THE DEVICE’S SA REGISTER. ITS PURPOSE IS TO 
3 5058 1 ! CLEAN UP DEVICE DATA IN THE “DRIVER” PORTION OF THE EXERCISER, AND TO 
; ood : ! INFORM THE “PROGRAM” PORTION OF THE EVENT VIA RETURN PACKET. 
; $ 
8 5061 1 ! IMPLICIT INPUTS: 
3 5062 1 ! ICTLR - INTERRUPTING CONTROLLER NUMBER 
F 5063 1 ! IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER’S DCT 
$ aoe : ! ICST_ADDR - ADDRESS OF INTERRUPTING CONTROLLER’S CST 
; !- 
F 5066 1 
3 5067 2 BEGIN 
3 5068 2 
3 5069 2 LOCAL 
; 5070 2 INDEX : SIGNED WORD, 
$ 5071 2 U_SAVE : WORD; 
3 5072 2 
3 5073 2 SA_REG = .IDCT_ADDR [SA_SAVE]; 
3 5074 2 U_SAVE = .L$LUN; ! SAVE PRE-INTERRUPT CURRENT UNIT NUMBER 
3 5075 2 L$LUN = .ICST_ADDR [OF_UN, P_UNIT]; ! SET CURRENT UNIT TO FIRST IN CONTROLLER 
3 5076 2 ERRDF (14, EGD_14, EMS_14); ! “FATAL PORT / CONTROLLER ERROR” 
3 5077 2 L$LUN = .U_SAVE; ! RESTORE PRE-INTERRUPT CURRENT UNIT 
3 5078 2 DRV_CTLERR (.ICTLR); ! CLEAN UP DRIVER DATA FOR CONTROLLER 
8 5079 2 IF CINDEX = GET_RETPKT (.ICTLR)) GEQ 0 ! TRY TO GET A RETPKT; IF SUCCESS 
$ 5080 2 THEN 
3 5081 3 BEGIN 
3 5082 3 
3 5083 3 RETPKT [.INDEX, CONID]) = CID_DRIVER; ! SET CONNECTION ID TO “DRIVER” 
3 5084 3 RETPKT [. INDEX, MESTYP] = MT_FATAL; ! FATAL ERROR 
3 5085 3 RETPKT [.INDEX, CTLR] = .ICTLR; ' CONTROLLER NUMBER 
; see ; IN_IODQ (€. INDEX); ! LOAD RETPKT INDEX INTO IODQ 
$ 
3 5088 2 END; ! IF RETPKT WAS ALLOCATED 
3 5089 2 
3 5090 1 END; ! ROUTINE FATAL_ERR 
-SBTTL FATAL.ERROR RC25 INTERRUPT SERVICE ROUTINES 
000000 004137 000000G FATAL.ERROR: 
JSR R1,$SAVE2 ; 
000004 013700 000566‘ MOV IDCT.ADDR,RO ; 
000010 015037 000002 000000G . MOV 2(RO), SA.REG 
000016 013701 000000G MOV L$LUN,R1 ; *,U.SAVE 
000022 013700 000564: MOV ICST.ADOR,RO ; 
000026 016002 000006 MOV 6(RO),R2 
000032 000302 SWAB R2 
000034 042702 177740 BIC #177740,R2 
000040 010237 000000G MOV R2,L$LUN 
000044 104455 TRAP 55 3 
000046 000016 -WORD 16 
000050 000000G -WORD €EGD.14 
000052 0000006 -WORD €MS.14 
000054 019137 000000G MOV R1,L$LUN ; U.SAVE,«* 
000060 013746 000600' MOV ICTLR, -(SP) 3 
Bs a 








— 








000160 


qq eee 


hie 


— 


004737 
013716 
004737 
010001 
002425 
010116 
012746 
004737 
062700 
112760 
013702 
042702 
112710 
150210 
010116 
004737 
005726 
005726 
000207 


; Routine Size: 
; Maximum stack 


CZRCDBO RC25 DISK EXERCISER 
RC2S INTERRUPT SERVICE ROUTINES 


000000G 
000600‘ 
000000G 


000060 
000000G 
000002G 
000003 
000600' 
177760 
000060 


000000G 


000001 


57 words, 


depth per invocation: 








1$: 


Routine Base: 
6 words 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


PC ,ORV.CTLERR 
ICTLR, (SP) 
Sao 


i$ 

R1,(SP) 

#60, -CSP) 

PC ,BL$MUL 
#RETPKT+2,RO0 
#3,10RO) 
ICTLR,R2 
#177760,R2 


PC, IN. I0DQ 
(SP)+ 
(SP)+ 

PC 


$CODE$ + 15450 





SEQ 0334 
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USER $1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (S2) 


3 5079 
; *, INDEX 

; INDEX,* 5083 
3 5085 
: INDEX,«* 5086 
3 5081 
: 5067 
3 5053 


Hee ees |) 


ee 













SEQ 0335 
149 






CZRCD3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOBICZRCD3.SRC;17 (53) 
5091 1 ROUTINE POLL_CRING : NOVALUE = 
5092 1 
5093 1 te 
5094 1 ! THIS ROUTINE IS CALLED BY BOTH RCINT AND INT_PROC TO SCAN THE DEVICE'S 
5095 1 ! COMMAND RING AND CHECK FOR ANY COMMAND SLOTS THAT HAVE BEEN “TAKEN” BY 
5096 1 ! THE CONTROLLER. SUCH SLOTS HAVE BEEN RETURNED TO THE HOST, INDICATED BY 
5097 1 ' A ZERO OWNERSHIP BIT. FOR EACH SLOT THAT HAS BEEN RETURNED TO THE HOST, 
5098 1 ! THE CRING COUNT IS DECREMENTED, AND THE CR_POLL ADDRESS IS ADVANCED TO 
ope : ! THE NEXT SLOT IN THE COMMAND RING. 
' 
5101 1 ! IMPLICIT INPUTS: 
5102 1 ! ICTLR - INTERRUPTING CONTROLLER NUMBER 
5103 1 ! IOCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT 
os : ! ICOM_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S COMM_AREA 
'. 
sige gee 
5109 3 WHILE (€.IDCT_ADDR [CRING_CNT] GTRU 0) AND ! WHILE @ OF COMMANDS IN CRING > 0 AND 
5110 2 NOT (BIT_TST (C.IDCT_ADOR (CR_POLL] + 2), ED_OWN))) DO ! CURRENT SLOT IS HOST-OWNED 
oa H BEGIN 
5113 3 IDCT_ADDR (CRING_CNT] = .IDCT_ADDR [CRING_CNT] - 1; ! DECREMENT @ CMDS IN CRING 
5114 3 IDCT_ADDR [CR_POLL] = .IDCT_ADOR [CR_POLL] + 4; ' ADVANCE TO NEXT SLOT TO POLL 
5115 3 IF .IDCT_ADDR [CR_POLL] GTRA .IDCT_ADOR [CR_END] ! IF BEYOND END OF RING 
5116 3 THEN ! THEN 
Pes : IOCT_ADDR [CR_POLL] = .IDCT_ADOR (CR_BEG); ! SET POINTER TO TOP OF CRING 
5119 2 END; 
5120 2 
a : ICOM_ADDR [CMD_INT] = 0; ! CLEAR COMMAND INTERRUPT WORD IN RING HEADER 
5123 1 END; 
.SB POLL.CRING RC25 INTERRUPT SERVICE ROUTINES 
000000 004137 000000G POLL .CRING: 
JSR R1, $SAVE2 3 
000004 013701 000566' MOV IDCT.ADDR,R1L 3 
000010 012702 000016 MOV #16,R2 ; 
000024 060102 ADD R1,R2 
000016 105711 i$: TSTB (Ri) 8 
000020 001422 BEQ 2s 
000022 016100 000016 MOV 16(R1),RO ; 
000026 016000 000002 MOV 2(RO),RO 
000032 042700 077777 BIC #77777,RO 
000036 020027 100000 CMP RO, #-100000 
000042 001411 BEQ 23 
000044 105311 DECB (RL) : 
000046 062712 000004 ADD #4,(R2) 3 
000052 021261 000012 CMP (R2),12(R1) F 
000056 101757 BLOS i$ 
000060 016112 000010 MOV 10(R1),CR2) 3 
000064 000754 BR is : 
000066 013700 000560' 2s: MOV ICOM.ADDR,RO 3 
000072 005060 000004 CLR 4(RO) 
000076 000207 RTS PC F 
; Routine Size: 32 words, Routine Base: $sCODE$ + 15632 


; Maximum stack depth per invocation: 4 words. 
















SEQ 0336 
CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 151 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCOB JCZRCD3.SRC;17 (54) 


ROUTINE POLL_RRING : NOVALUE = 


o 


THIS ROUTINE IS CALLED BY BOTH RCINT AND INT_PROC TO SCAN THE DEVICE'S 
RESPONSE RING AND CHECK FOR ANY SLOTS WHICH HAVE BEEN RETURNED TO THE 
HOST COWNERSHIP BIT = 0). FOR EACH SUCH SLOT, THE ASSOCIATED MESSAGE IS 
PROCESSED BASED ON ITS CONNECTION ID (DISK OR DUP) AND MESSAGE TYPE 
(SEQUENTIAL OR DATAGRAM). AFTER PROCESSING, THE MESSAGE ENVELOPE IS 
RE-INITIALIZED AND RETURNED TO THE CONTROLLER (OWNERSHIP BIT SET TO 1). 


IMPLICIT INPUTS: 
IDCT_ADDR - ADDRESS OF INTERRUPTING CONTROLLER'S DCT 


BEGIN 
WHILE NOT (BIT_TST ((€.IDCT_ADDR ([RR_POLL] + 2), ED_OWN)) DO ! WHILE 0 = 0 
BEGIN 
IENV_ADDR = ..IDCT_ADDR [RR_POLL] - 8; ! ADDRESS OF RESPONSE ENVELOPE 
| erie (CONNID] EQLU CID_DISK : —— IS FROM DISK MSCP 
= -IENV_ADDR [MSGTYP] OF ! PROCESS ON MESSAGE TYPE 


(MT_SEQ) : ENV_TO_RP (); ! SEQUENTIAL 
(MT_DG} : DATAGM (); ! DATAGRAM 


TES 
ELSE 
BEGIN 
IF .IENV_ADDR [CONNID) EQLU CID_DUP 
THEN 
ENV_TO_RP (); 
END; 
IENV_ADDR [MSGLEN] = MSG_LEN «@ 2; 
IOCT_ADDR [RR_POLL] = .IDCT_ADDR [RR_POLL] + 2; ADVANCE TO HI ORDER WORD OF RING SLOT 


v 
] 
-IDCT_ADOR (RR_POLL) = .IENV_ADOR [ENV_HT); ! RETURN SLOT TO CONTROLLER 
IDCT_ADDR ([RR_POLL) = .IDCT_ADOR [RR_POLL] + 2; ! ADVANCE TO NEXT RRING SLOT 

a) 

' 

! 


ELSE (MESSAGE NOT FROM DISK MSCP) 


IF MESSAGE IS FROM DUP 
THEN 
COPY ENV TO RETPKT 


RE-INIT MESSAGE LENGTH 


Ee C[RR_POLL] GTRA .IDCT_ADDR [RR_END) — END OF RING 
IOCT_ADDR [RR_POLL) = .IDCT_ADDR [RR_BEG); CYCLE TO TOP OF RING 
END; ! WHILE LOOP 
ICOM_ADDR [RSP_INT) = 0; ! CLEAR RESPONSE INTERRUPT WORD IN RING HEADER 


END; 


ui 
8 
MMM N UUW WU & & BB BB Ul U8 GF U8 U8 U8 OF 8 8 68 68 G8 GTO 10 10 2 ee ee ee pe ee ee ee pe 





-SBTTL POLL.RRING RC25 INTERRUPT SERVICE ROUTINES 
090000 004137 0000006 POLL .RRING: 

JSR R1, $SAVE2 s 
000004 013702 000566’ MOV IOCT.ADOR,R2 : 











CZRCO3 CZRCDBO RC25 DISK EXERCISER 


000010 062702 000014 


000002 
000022 042700 077777 
100000 


000034 017237 000000 000562’ 
000042 162737 000010 000562: 


000050 013700 000562’ 
000054 062700 000006 
000060 105760 000001 


000166 016072 000002 000000 





+ Routine Size: 75 words, 


Routine Base: 


s Maximum steck depth per invocetion: 4 words 


02.0 RC25 INTERRUPT SERVICE ROUTINES 


1s: MOV 


23: CMPB 


3$: JSR 
4$: MOV 


S$: MOV 


SCODE$ + 15732 





SEQ 0337 
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USER $1: (AZTEC. CZRCDB JCZRCDS. SRC; 17 (54) 


14-Jun-1985 09:33:42 


#14,R2 
(R2),RO 
2(RO),RO 
#77777 ,RO 
— 


$ 
80(R2), IENV. ADDR : 
#10, IENV. ADDR 

IENV. ADDR, RO ‘ 
















RO 

#177760,R0 

3$ 8 
RO,@1 F 
4$ 

PC ,DATAGM 

4$ ; 
1(RO), 2 F 
4$ 

PC ENV. TO.RP 3 
IENV. ADDR, RO 3 
#74,4(RO) 

IOCT.ADDR,R1 3 
#14,R2 

#2,(R2) 

2CRO), BOCR2) 3 
@2,(R2) 3 
 opmeay F 
4(R1),(R2) 3 
is ; 
ICOM. ADDR,RO ; 
6(RO) 








(ene ee je ee 


CZRCO3 
vo2.0 


5175 
5176 
$177 


SF SF SF Ge SE GE GH Ge SF GF GE Ge GF GF Ge GF Gt GO GF GF GF Ge Ge Gt Ge GF GF GF Ge Ge Ge GS Ge Ge Gs OF Gs OF OF GP Gs Gs Gs OF OF OF OF GS Os Ge Os OF OF Oe Oe oF os 
uw 
fo 
o 
w 


DOO OO BUTT TT Be BB ON 8 G80 90 90: 0: 90: 10: 910. 10 10 10 10 90. 10. 1 Fe ee ee be pe he he pe he pe pe pe pe pe 













SEQ 0338 
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RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1:[AZTEC.CZRCDB JCZRCD3.SRC;17 (55) 


ROUTINE ENV_TO_RP : NOVALUE = 


* 


THIS ROUTINE IS CALLED BY POLL_RRING FOR (A) DISK MSCP RESPONSE 
MESSAGES WITH THE “SEQUENTIAL” MESSAGE TYPE, AND (B) DUP RESPONSE 
MESSAGES. ITS GENERAL PURPOSE IS TO COPY THE CONTENTS OF THE MESSAGE 
ENVELOPE INTO A RETURN PACKET SO THAT THE ENVELOPE CAN BE RETURNED TO 
THE CONTROLLER. IF THE RESPONSE MESSAGE HAS AN ASSOCIATED COMMAND IN 
THE CONTROLLER'S OUTSTANDING COMMAND LIST (OUTC_LIST), THEN TIMING FOR 
THAT COMMAND IS TERMINATED. IN ADDITION, IF THE COMMAND WAS AN I/0 
TRANSFER (READ, WRITE, OR ACCESS), THEN SOME FIELDS OF THE COMMAND 
ENVELOPE ARE COPIED INTO THE RETURN PACKET. 


AFTER THE RETURN PACKET HAS BEEN LOADED, ITS INDEX IS LOADED INTO THE 
wa, CIO0DQ@) FOR PROCESSING BY THE “PROGRAM” PORTION OF THE 
Or STICc. 


IMPLICIT INPUTS: 
ICTLR - INTERRUPTING CONTROLLER NUMBER 
IENV_ADDR - ADDRESS OF MSCP ENVELOPE CONTAINING RESPONSE 


BEGIN 


LOCAL 
M_INDEX : SIGNED WORD, 
R_INDEX : SIGNED WORD, 
STIOX : WORD, 
ENDIDX : WORD, 
R_ADDR : REF BLOCK [RP_LEN, WORD] FIELD (RP_FIELDS), 


TEMP : WORD; 
M_INDEX = -1; ! ASSUME NO ASSOCIATED COMMAND PACKET 
STIDX = .ICTLR « OUTC_CNT; ! START OF CONTROLLER'S OUTC_LIST AND _TIMR 
ENDIDX = .STIDX + OUTC_CNT - 1; ! END OF OUTC 
INCR COUNT FROM .STIDX TO .ENDIDX DO ! SEARCH THROUGH EACH OUTC ENTRY 
BEGIN 
IF (TEMP = .OUTC_LIST [.COUNT]) GEQ 0 ! IF ENTRY CONTAINS AN OUTSTANDING COMMAND INDEX 
THEN ' THEN 
BEGIN 
IF .MSCP_ENV [.TEMP, CRN_LO) EQLU .IENV_ADDR [CRN_LO] ' IF THIS IS THE ASSOC CMD 
THEN ! THEN 
BEGIN 
M_INDEX = .TEMP; 
OUTC_LIST [.COUNT) = -1; ! INIT ENTRY 
OUTC_TIMR [.COUNT] = 0; ! TURN OFF COMMAND TIMER 
EXITLOOP; 
END; 
END; 
END; 





14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 





VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 


! IF RETPKT IS AVAILABI.E 


! START OF ALLOCATED RETPKT 
! COPY RESPONSE ENVELOPE INTO RETURN PACKET 


! IF ASSOC. CMD ENV WAS FOUND 


4 
' 
! LOAD CONTROLLER NUMBER INTO PACKET 
' 
] 


IF END MESSAGE IS 


READ, WRITE, OR 


ACCESS 
N 
RELEVANT 


TO RETPKT 
! IF ENDCODE WAS READ, WRITE, OR ACCESS 


! IF ASSOC CMD ENV WAS FOUND 
! PUT RETPKT INDEX INTO I0DQ 
! IF RETPKT WAS ALLOCATED 


! IF ASSOC CMD ENV WAS FOUND 


! RETURN COMMAND ENVELOPE TO POOL 


czercos CZRCOBO RC25 DISK EXERCISER 

v02.0 RC25 INTERRUPT SERVICE ROUTINES 

Fy $232 2 IF CR_INDEX = GET_RETPKT ( .ICTLR)) GEQ 0 

: $233 2 THEN 

8 5234 3 BEGIN 

8 5235 3 

3 5236 3 R_ADDR = RETPKT + (.R_INDEX * RP_LEN #@ 2); 

3 > Tae COPY_BLK (.IENV_ADDR + 4, .R_ADOR, RP_LEN); 

3 5238 3 R_ADOR [CTLR] = .ICTLR; 

: $239 3 IF .M_INDEX GEQ 0 

8 5240 3 EN ! THEN 

3 S241 4 BEGIN 

3 S242 4 

8 5243 5 IF (C.IENV_ADDR [OPCODE] EQLU (COP_RD + OP_END)) 

3 $244 5 C.IENV_ADDR [OPCODE) EQLU COP_WRT + OP_END)) 

3 5245 5 (. IENV_ADDR [OPCODE] EQLU (OP_ACC + OP_END)) 

3 5246 4 THEN 

8 5247 5 BEGIN 

3 5248 5 

8 5249 5 R_ADDR [CMDMOD] = .MSCP_ENV [.M_INDEX, MODIFY] 
$ 5250 5 R_ADDR (CBCNT_LO) = .MSCP_ENV [.M_INDEX, BC_LO 
Fy 225. 63 R_ADDR [CBCNT_HI]) = .MSCP_ENV [.M_INDEX, BC_HI 
3 S252 5 R_ADDR [LBN_LO) = .MSCP_ENV [.M_INDEX, LBN_LJ; 
3 5253 5 R_ADOR [LBN_HI] = .MSCP_ENV [.M_INDEX, LBN_H]; 
3 5254 5 R_ADDR [BUFF_0O} = .MSCP_ENV [.M_INDEX, BUF_OJ; 
3 $255 5 R_ADDR [BUFF_1] = .MSCP_ENV [.M_INDEX, BUF_1); 
3 5236 «6S 

8 5257 4 END; 

3 5258 4 

s 5259 3 END; 

8 5260 3 

F 5261 3 IN_IODQ (.R_INDEX); 

s S262 3 

8 5263 2 END; 

$ 5264 2 

8 5265 2 IF .M_INDEX GEQ 0 

8 5266 2 HEN 

Fy 5267 2 PUT_ENV (.M_INDEX); 

5 5268 2 

8 5269 1 END; ' ROUTINE DISK_RSP 


000009 004137 000000G 


000004 012704 177777 
000010 013700 000600’ 


000026 062705 000017 


000049 116103 000000G 





1$: 


JSR 
MOV 
MOV 
ASL 
ASL 
ASL 


- SBTTL 
ENV.TO.RP: 


ENV.TO.RP RC25 INTERRUPT SERVICE ROUTINES 


R1,$SAVES 
#-1,R4 
ICTLR,RO 


2$ 

~ mth aati 
$ 

R3,-(SP) 


‘ 
° *,M. INDEX 


; STIDX,ENDIDX 
; *,ENDIDX 

; STIDX,COUNT 
; *, COUNT 


3 *(COUNT), TEMP 


; TEMP,« 


SEQ 0339 
Page 154 
(5 






5) 


5175 
5207 
5208 


5209 
5. .0 








CZRCO3 
vo2.0 


000050 
000054 
000060 
000062 
000066 
000074 
000076 
000100 
000106 
000110 








012746 
004737 
022626 
013702 
026062 
001011 
010304 
112761 
010100 
006300 
005060 
000403 
005201 
020105 
003745 
013746 
004737 
010001 
005726 
005701 
002513 
010146 
012746 
004737 
062700 
010002 
013716 
062716 
010246 
012746 
004737 
013700 
942700 
142762 
150C62 
005704 
002452 
013700 
116000 
042700 
020027 
001406 
020027 
001403 
020027 
001033 
010416 
012746 
004737 
016062 
016062 
016062 
016062 
016062 
016062 
016062 
005726 


CZRCOBO RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


000104 
000000G 


000562 ' 
000010G 000010 


000377 000000G 


000000G 


000600' 
000000G 


000060 
000000G 
000000G 


000562 ' 
000004 


000030 
000000G 
000600‘ 
177760 
000017 000002 
000002 


000562‘ 
000020 
177400 
000241 


000242 
000220 


000104 

000000G 

000022G 000012 
000024G 000044 
000026G 000046 
000044G 000050 
000046G 000052 
000030G 000024 
000032G 000026 


2s: 


3$: 


4$: 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


#104, -(SP) 

PC ,BL$MUL 

(SP)+,(SP)+ 
IENV.ADDR,R2 

*~ a area ania ei 


R3,R4 
oe 


es 


Ri 
R1,R5 


1$ 

ICTLR, -( SP) 

PC GET .RETPKT 
1 


#RETPKT,RO 
RO,R2 
IENV.ADDR, (SP) 
«CSP ) 
R2,-CSP) 
#30, -(SP) 
PC COPY .BLK 
ICTLR,RO 
#177760,RO0 
#17,2CR2) 
RO,2(R2) 
R4 


5$ 
IENV.ADOR,RO 
20(RO),RO 
#177400,R0 


MSCP. ENV+22(RO), 12(R2) 
MSCP .ENV+24(RO),44(R2) 
MSCP .ENV+26(RO), 46(R2) 
MSCP .ENV+44(RO),50(R2) 
MSCP .ENV+46( RO), 52(R2) 
MSCP .ENV+30(RO),24(R2) 
MSCP .ENV+32(RO),26(R2) 
(SP)+ 
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USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 O55) 
; TEMP ,M.INDEX 5221 
; *,*C(COUNT) 5222 
; COUNT,* 5223 
3 5219 
; COUNT 5210 
; COUNT, ENDIOX 

3 5232 
; *,R. INDEX 

; R. INDEX 

; R.INDEX,* 5236 
; *,R.ADDR 

F 5237 
; R.ADOR,« 

3 5238 
; *,*(R.ADOR) 

; *,*(R.ADOR) 

; M. INDEX 5239 
3 5243 
; 5244 
; 5245 
; M.INDEX,« 5249 
: *,*(R. ADDR) 

; *,4#(R.ADDR) 5250 
; *,*#(R. ADDR) 5251 
; *,*(R. ADDR) 5252 
; *,*(R.ADOR) 5253 
: *,4(R. ADDR) 5254 
3 

3 


*,#(R. ADDR) 
















SEQ Smeg 


a a a a a Ry 
ne a a Se 


CZRCO3 
vo2.0 


; Routine Size: 


010116 
004737 
062706 
005704 
002404 
010446 
004737 
005726 
000207 


CZRCDBO RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


S$: 
0000006 
000010 

6$: 
000000G 

7$: 
133 words, Routine Base: 


; Maximum stack depth per invocation: 12 words 





MOV 
JSR 
ADD 
TST 
BLT 
MOV 
JSR 
TST 
RTS 


14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


R1,(SP) 
PC, IN. I0DQ 
#10, SP 


R4,-(SP) 
PC ,PUT.ENV 
(SP)+ 

PC 


$CODE$ + 16160 


VAX-11 Bliss-16 V4.0-579 
USER$1:(AZTEC.CZRCDB JCZRCD3.SRC;17 


3 R. INDEX, « 


; M. INDEX 
; M.INDEX, # 





SEQ ~tg* 


ge 
(55) 


5261 


5234 
5265 


5267 


5175 











SEQ 0342 
CZRCD3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 157 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1:(AZTEC.CZRCDB JCZRCD3.SRC;17 (56) 
3 $270 1 ROUTINE DATAGM : NOVALUE = 
8 wala Ok 
: S272 1 te 
3 $273 1 ! THIS ROUTINE HANDLES ALL DATAGRAM CERROR LOG) MESSAGES RECEIVED FROM 
3 $274 1 ! THE RC25. IF THE DATAGRAM REFERENCES A PARTICULAR UNIT CAND IS NOT 
3 sets & ! CONTROLLER-RELATED), THEN ITS OCCURRENCE IS TALLIED FOR THAT UNIT. IF 
3 5276 1 ! THE USER DID NOT SUPPRESS THE PRINTING OF ERROR LOG MESSAGES DURING THE 
3 sety i : SW DIALOG, THEN EACH RELEVANT FIELD IS IDENTIFIED AND PRINTED. IF THE 
3 5278 1 : DATAGRAM INDICATES AN ECC ERROR, THEN IT IS TALLIED FOR THE APPROPRIATE 
8 $279 1 ! UNIT. 
F 5280 1 ! 
3 5281 1 H IMPLICIT INPUTS: 
3 5282 1 ! IENV_ADDR - ADDRESS OF MSCP ENVELOPE CONTAINING ERROR LOG 
3 5283 1 : MESSAGE 
3 5284 1 !- 
3 5285 1 
F 5286 2 BEGIN 
8 5287 2 
F 5288 2 LITERAL 
3 5289 2 ECi = 8, ' SUB-CODE VALUE FOR 1-SYMBOL ECC ERROR 
3 5290 2 EC8 = 15, ! SUB-CODE VALUE FOR 8-SYMBOL ECC ERROR 
8 5291 2 ECO = 4; , !' SUB-CODE VALUE FOR ECC-FIELD-ONLY ERROR 
; 5292 2 
PF 5293 2 BIND 
$ 5294 2 FMT_CE = UPLIT (#ASCIZ‘SACONTROLLER ERRORSN’ ), 
8 5295 2 FMT_HMA = UPLIT (sASCIZ'SAHOST MEMORY ACCESS ERRORSN’ De 
; 5296 2 FMT_SDE = UPLIT (sASCIZ'SASMALL DISK ERRORSN’ ); 
3 5297 2 
; 5298 2 OWN 
8 5299 2 FMT_TB : VECTOR [5] INITIAL (FMT_CE, FMT_HMA, 0, 0, FMT_SDE), 
PF 5300 2 STC_TB : VECTOR [12] INITIAL (STC_00, STC_01, STC_02, STC_03, STC_04, 
8 5301 2 STC_05, STC_06, STC_07, STC_08, STC_09, STC_10, STC_11); 
3 5302 2 
3 5303 2 LOCAL 
F 5304 2 FMT : WORD, ! FORMAT CODE 
r 5305 2 EvVC : WORD, ! EVENT CODE 
3 5306 2 SBC : WORD, ! SUB-CODE 
F 5307 2 PLAD : WORD, : PLATTER ADDRESS (MSCP UNIT NO.) 
3 5308 2 UNIT : SIGNED WORD, ' DRS UNIT NUMBER 
3 5309 2 TAD : REF BLOCK (TALLY. LEN, WORD] FIELD (T _FIELDS); 'TALLY ADDRESS 
; 5310 2 
F 5311 2 FMT = .IENV_ADDR [FORMAT]; ! GET FORMAT CODE 
5 5312 2 EVC = .IENV_ADDR [EVENT]; ! GET EVENT CODE 
Fy 5313 2 SBC = .IENV_ADDR [SUBC]; ! GET SUB-CODE 
: 5314 2 If .FMT EQLU FM_SDE ! IF SMALL DISK ERROR 
3 5315 2 THEN ! THEN 
$ 5316 3 BEGIN 
$ ssi7 3 
5 5318 3 PLAD = .IENV_ADDR [PL_ADDR]; ! GET PLATTER ADDRESS (MSCP UNIT NO.) 
8 5319 3 UNIT = -1; 
3 5320 3 INCR OFFSET FROM (O + OF_UN) TO (3 + OF_UN) DO ! FOR EACH CST UNIT 
s 5321 4 BEGIN 
8 5322 4 
$ 5323 4 IF .PLAD EQLU .ICST_ADDOR [.OFFSET, P_ADDR) ! IF PLAT ADDR MATCHES CST ENTRY 
8 5324 4 EN ! THEN 
3 5325 5 BEGIN 
3 5326 5 






















SEQ 0343 
CZRCO3 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 158 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB ICZRCD3.SRC;17 (56) 


UNIT = .ICST_ADOR [.OFFSET, P_UNIT]; ! GET DRS UNIT NUMBER 
EXITLOOP; ! DONE SEARCH 


END; 
END; ! PLATTER ADDRESS SEARCH LOOP 
IF .UNIT GEQ 0 ! IF UNIT NUMBER WAS FOUND 
THEN THEN 
BEGIN 
TAD = TALLY + (.UNIT * TALLY_LEN * 2); ! CALCULATE UNIT’S TALLY ADDRESS 
TAD [ER_LOG) = .TAD [ER_LOG) + 1; ' INCR ERROR LOG COUNT 
IF .EVC EQLU ST_DAT ! IF EVENT CODE = DATA ERROR 
THEN ! THEN 
BEGIN 
IF .SBC EQLU ECO 
THEN 
—— CECC_ONLY] = .TAD (ECC_ONLY] + 1 
BEGIN 
IF ((.SBC GEQ EC1) AND (.SBC LEQ EC8)) ! IF SUB-CODE INDICATES ECC SYMBOL ERROR 
eg ! THEN 
N 


XK 
TAD = _ CECC_1] + ((.SBC - 8) « a ! CALCULATE EXACT ADDR OF ECC STAT 
-TAD = ..TAD + 1; ! INCREMENT STATISTIC 


END; ! IF SUB-CODE IS ECC ERROR 
END; ! IF NOT ECC-FIELD-ONLY ERROR 
END; ; ! IF EVENT CODE = DATA ERROR 
END; : ! IF UNIT NUMBER WAS FOUND 

END; ! IF FORMAT = SMALL DISK ERROR 
— AND (NOT (BIT_TST (SWP_FLAGS, aime ! IF ATTENDED AND ERROR LOG PRINTING WAS NOT SUPPRESSED 
HEN : 

BEGIN 

PRINTF CEX_EL); g "ERROR LOG MESSAGE RECEIVED: ” 

PRINTF CEX_CRN, .IENV_ADDR [CRN_LOJ); : CMD REF NUM: XXXXXX(0)” 

IF .FMT EQLU FM_SDE $ “+ FORMAT CODE = SMALL DISK ERROR 

THEN ! THEN 
PRINTF CEX_PA, .PLAD); ye PLATTER: XXX.” 

! FORMAT: “ 


PRINTF CEX_FMT); ;.* 
nee” -FMT OF 


IF ECC-FIELD-ONLY 
THEN 

INCREMENT STAT 
OTHERWISE 


(FM_CNT, FM_BAD, FM_SDE) : PRINTF (aFMT_TB [.FMT)); ! PRINT TEXT 
(OTHERWISE } : PRINTF CEX_03, .FMT); ! “XXx(0)” 


TES; 


SO SE SO SP SF SS SO SF SF GE GE GS SF GF GE GH GS GE GP GE GO GE GS Ge GE GO GS GE GE GE GS GS GS GF Ge GE GO GE GE GH Ge GE GE GEES GS GS GD GS GD GH GS Gb Gs Gb GF OO 
ui 
Ww 
ul 
u 
ANAAAAAWAWAAAWAAAMUNMNMAWS PUUIDDSSNSNSNSNDIDHUUUUUU EP Pee heWWWWeauUUU 

















SEQ 0344 


CZRCDO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 Page 159 
vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER$1: (AZTEC. CZRCDB JCZRCD3.SRC;17 (56) 
3 5384 3 

Fy 5385 3 PRINTF CEX_EVC); ' * EVENT CODE: ” 

H 5386 3 IF .EVC LEQU 11 ! IF EVENT CODE IS KNOWN 
3 5387 3 THEN ! THEN 

3 5388 4 PRINTF (.STC_TB [.EVC]) ! PRINT EVENT CODE TEXT 

Hy 5389 3 SE ! OTHERWISE 

H 5390 3 PRINTF CEX_03, .EVC); ' "XxXx€0)" 

: 5391 3 PRINTF CEX_SB, .SBC); , SUB-CODE: XXxXx(0)” 
H 5392 3 IF .FMT EQLU FM_BAD ! IF HOST MEMORY ACCESS ERROR 
ry 5393 3 HEN ! THEN 

A sees ; PRINTF CEX_HMA, .IENV_ADDR [MA_LO], .IENV_ADDR [MA_HI]); ! PRINT HOST ADDRESS 
: 

3 tes ;: END; ! IF PRINTING WAS NOT SUPPRESSED 
8 5398 1 END; ! ROUTINE DATAGM 

002554 -PSECT $GGG$, RO 

002554 000036' FMT.TB: .WORD FMT.CE 

002556 000064’ WORD FMT.HMA 

002560 000000 WORD O 

002562 000000 WORD 

002564 0C0122' . WORD 1 iT. SDE 

002566 000000G STC.TB: .WORD STC.00 

002570 000000G . WORD STC.O1 

002572 000000G WORD STC.02 

002574 000000G WORD STC.03 

002576 000000G WORD STC.04 

002600 000000G WORD STC.05 

002602 000000G WORD STC.06 

002604 000000G WORD STC.07 

002606 000000G WORD STC.08 

002610 000000G WORD STC.09 

002612 000000G WORD STC.10 

002614 000000G WORD STC.1i1 

000036 -PSECT $PLIT$, RO, OD 

000036 045 101 103 P.AAC: .ASCII /#AC/ 

000041 117 116 124 -ASCII /ONT/ 

000044 122 117 114 -ASCII /ROL/ 

000047 114 105 122 -ASCII /LER/ 

000052 040 105 122 -ASCII / ER/ 

000055 122 117 122 -ASCII /ROR/ 

000060 045 116 900 -ASCII /#N/<00> 

000063 000 -ASCII <0Q0Q> 

000064 045 101 110 P.AAD: .ASCII /sAH/ 

000067 117 123 124 -ASCII /OST/ 

000072 040 115 105 -ASCII / ME/ 

000075 115 117 122 -ASCII /MOR/ 

000100 131 040 101 -ASCII /Y A/ 

000103 103 103 105 -ASCII /CCE/ 

000106 123 123 040 -ASCII /SS / 

000111 105 122 122 -ASCII /ERR/ 

000114 117 122 045 -ASCII /ORS/ 








CZRCD3 
vo2.0 


000117 
000122 
000125 
000130 
000133 
000136 
000141 
000144 
000147 


016572 
000000 








CZRCOBO RC25 DISK EXERCISER 
RC25 INTERRUPT SERVICE ROUTINES 


P.AAE: 


FMT.CE= 
FMT.HMA= 
FMT. SDE= 


000000G DATAGHM: 


000562' 


000020 
000022 
177740 
000022 


174000 
000002 
000004 


000002 
000014 
177777 
000006 


000564‘ 


000001 
000002 


1s: 


177740 


000002 
000014 


2s: 


3$: 
000060 


- ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
- ASCII 
-ASCII 
-ASCII 
-ASCII 


-SBTTL 
-PSECT 


JSR 





14-Jun-1985 09:41:21 
14-Jun-1985 09:33:42 


/N/<00><00> 
/#AS/ 

/MAL/ 

/L O/ 

JISK/ 

/ ER/ 

/ROR/ 
/#N/<00> 
<Q00Q> 


P.AAC 
P.AAD 
P.AAE 


DATAGM RC25 INTERRUPT SERVICE ROUTINES 


$CODE$, RO 
R1,$SAVES 
-CSP), -CSP) 
IENV .ADDR, RO 
R4 


20(RO),.R4 
22(RO),R3 
#177740,R3 
22(RO),RS 


2(SP) 


SP) 
14(RO), CSP) 
#-1,R2 
#6 ,RO 


RO,R1 
ICST.ADOR,R1 
(R1),-CSP) 
1(SP) 
2(SP),(SP)+ 
2$ 

(R1),R2 

Re 


#177740,R2 
3$ 


R2,-CSP) 
#60, -( SP) 





SEQ 0345 


VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB ICZRCD3. SRC; 17 


*, OFFSET 


*, OFFSET 
OFFSET, 


; UNIT 
; UNIT,#* 


















CZRCO3 CZRCDBO RC25 DISK EXERCISER 14-Jun-1985 09:41:21 VAX-11 Bliss-16 V4.0-579 


vo2.0 RC25 INTERRUPT SERVICE ROUTINES 14-Jun-1985 09:33:42 USER $1: (AZTEC. CZRCOB JCZRCD3.SRC;17 
000164 004737 000000G JSR PC ,BL$MUL 

000170 0652700 0000006 ADD #TALLY,RO 

000174 005260 000032 INC 32(RO) s *#(TAD) 
000200 020327 000010 CMP R3,#10 ; EVC,# 
000204 001023 BNE S$ 

000206 020527 000004 CMP RS, #4 ; SBC,* 
000212 001003 BNE 4$ 

000214 005260 000056 INC 56(RO) ; *C TAD) 
000220 000415 BR S$ ; 
000222 020527 000010 4$: CMP RS, #10 ; SBC,* 
000226 002412 BLT 5$ 

000230 020527 000017 CMP RS, #17 ; SBC,* 
000234 003007 BGT S$ 

000236 010502 MOV RS ,R2 ; SBC,* 
000240 006302 ASL R2 

000242 060002 ADD RO,R2 ; TAD,* 
000244 010200 MOV R2,RO ; *,TAD 
000246 062700 000016 ADD #16,RO + *,TAD 
000252 005210 INC CRO) ; TAD 
000254 022626 S$: CMP (SP)+,(SP)+ ; 
000256 104450 6$: TRAP 50 ; 
000260 103165 BHIS 15$ 

000262 132737 000001 000000G BITB #1,SWP .FLAGS 

000270 0C1161 BNE 15$ 

000272 012746 000000G MOV #EX.EL ,-CSP) ; 
000276 012746 000001 MOV #1,-(SP) 

000302 010600 MOV SP ,RO ; SP,# 
000304 104417 TRAP 17 

000306 013700 000562’ MOV IENV .ADOR, RO ; 
000312 016016 000010 MOV 10(RO), (SP) 

000316 012746 000000G MOV #EX. CRN, -CSP) 

000322 012746 000002 MOV #2,-(SP) 

000326 010600 MOV SP ,RO ; SP,* 
000330 104417 TRAP 17 

000332 032766 000001 000012 BIT #1,12(SP) ; 
000340 001411 BEQ 7$ 

000342 016616 000010 MOV 10(SP),(SP) ; PLAD,« 
000346 012746 000000G MOV #EX.PA,-CSP) 

000352 012746 000002 MOV #2,-C(SP) 

000356 010600 MOV SP ,RO ; SP,* 
000360 104417 TRAP 17 

000362 022626 CMP (SP)+,(SP)+ 

000364 012716 000000G 7$: MOV #€X.FMT, CSP) i 
000370 012746 000001 MOV #1,-CSP) 

000374 010600 MOV SP RO ; SP,* 
000376 104417 TRAP 1 

000400 005704 TST R4 3 FMT 
000402 002403 BLT $ 

000404 020427 000001 CMP R4,#1 ; FMT,« 
060410 003403 BLE 9$ 

000412 020427 000004 8$: CMP R404 ; FMT,«* 
000416 001012 BNE 10$ 

000420 010400 9$: MOV R4,RO ; FMT,# 
000422 006300 ASL RO 

000424 016016 002554’ MOV FMT. TBCRO), (SP) 

000430 012746 000001 MOV #1,-(SP) 

000434 010600 MOV SP RO ; SP,« 

















OR er ee so 






SEQ 0347 
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000436 104417 TRAP 17 
000440 005726 TST (SP)+ 
000442 000410 BR 11$ ; 5377 
000444 010416 10$: MOV R4,(SP) 3; FMT,* 5381 
000446 012746 ©00000G MOV #EX.03,-CSP) 
000452 012746 000002 MOV #2,-(S 
000456 010600 MOV SP ,RO ; SP,* 
000460 104417 TRAP 17 
000462 022626 CMP (SP)+,(SP)+ 
000464 012716 0000006 11$: MOV #EX.EVC, CSP) 3 
000470 012746 000001 MOV #1,-CSP) 
000474 010600 MOV SP ,RO 3; SP,* 
000476 104417 TRAP 17 
000500 020327 000013 CMP R3, 413 ; EVC,* 
000504 101011 BHI 12$ 
000506 010300 MOV R3,RO ; EVC,«* 
000510 006300 ASL RO 
000512 016016 002566’ MOV STC. TBCRO), CSP) 
000516 012746 000001 MOV #1,-(CSP) 
000522 010600 MOV SP ,RO ; SP,«# 
000524 104417 TRAP 17 
000526 000410 BR 13$ : 
000530 010316 12$: MOV R3,(SP) ; EVC,* 
000532 012746 000000G MOV #EX.03,-CSP) 
000536 012746 000002 MOV #2,-CSP 
000542 010600 MOV SP ,RO ; SP,* 
000544 104417 TRAP 17 
000546 005726 TST (SP)+ 
000550 010516 13$: MOV RS,CSP) ; SBC,* 
000552 012746 000000G MOV #EX.SB,-(SP) 
000556 012746 000002 MOV #2,-(CSP) 
000562 010600 MOV SP RO ; SP,# 
000564 104417 TRAP 17 
000566 020427 000001 CMP R4,¢1 ; FMT,« 
000572 001016 BNE 14$ 
000574 013700 000562’ MOV IENV.ADDR,RO 8 
000600 016016 000042 MOV 42(RO), CSP) 
000604 016046 000040 MOV 40(RO),-C(SP) 
000610 012746 000000G MOV #EX.HMA, -CSP) 
000614 012746 000003 MOV #3,-CSP) 
000620 010600 MOV »RO ; SP,* 
000622 104417 TRAP 17 
000624 062706 000006 ADD #6,SP 
000630 062706 000022 14$: ADD #22,SP 3 
000634 022626 15$: CMP (SP)+,(SP)+ 3 
000636 000207 RTS PC 
; Routine Size: 208 words, Routine Base: ‘sCODE$ + 16572 


; Maximum stack depth per invocation: 22 words 


; $399 1 

3 5400 1 END 

: 5401 1 

3 $402 0 ELUDOM 








(= ene ne + ere ee ee ae aE 





SEQ 0348 
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3 OTS external references 


-GLOBL $SAVES, $SAVE4, $SAVE3, $SAVE2 
-GLOBL BLSABS, BLSSHF, BLSDIV, BLS$MOD 
-GLOBL BLSMUL 


PSECT SUMMARY 


Hy 
3 

; Psect Name Words Attributes 

H sCODE$ 3981 RO. £ . LCL. REL. CON 
; sPLIT$ 52 RO. @ . LL. REL. GON 


Library Statistics 


8 
3 

See “Sea 8 rl a Oe. Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 

3 

3; USER$1:(AZTEC.CZRCDBIJCZRCDOL.L16;6 276 249 90 16 00:00.2 
3 COMMAND QUALIFIERS 

3 BLISS/PDP11 CZRCD3.SRC/LIST/EN:NOEIS 

; Size: 3981 code + 763 data words 

3; Run Time: 06:47.6 

; Elapsed Time: 07:16.0 

: Lines/CPU Min: 795 

; Lexemes/CPU-Min: 6489 

; Memory Used: 396 pages 

; Compilation Complete 














14-Jun-1985 09:49:05 
14-Jun-1985 09:34:28 


! DIAGNOSTIC SUPERVISOR LIBRARY 


! IP, VECTOR, BR, PLAT ADDR 


VECTOR, BR, PLAT ADOR 


-TITLE CZRCD4 CZRCOBO RC25 DISK EXERCISER 
/V02 ..0/ 


3; Plit count word 


; Plit count word 


CZRCD4 
F 0001 0O MODULE CZRCD4 (¢ 
:; 0002 O “TITLE ‘CZRCDBO RC25 DISK EXERCISER’ 
: 0003 0O IDENT = ‘VO02.0', 
3 0004 0 ADDRESSING_MODE CABSOLUTE) 
: 0005 0 d= 
3 0006 1 BEGIN 
3 0043 1 SSBTTL ‘LASTAD AND SETUP’ 
; 0044 1 
; 0045 1 REQUIRE ‘BLSMAC.REQ'; 
3 i534 1 
8 i535 2 LASTAD 
3 1536 2 
3 1537 2 BGNSETUP (2); 
3 1538 2 
; P 1539 2 NP TAB 
; P 1540 2 #0'172150', #0'154', 5, 0 
3 1541 2 TAB 
3 1542 2 
; P 1543 2 NP TAB 
; P 1544 2 #0'172150', #0'154', 5, 1 ! IP, 
3 1545 2 TAB 
3 1546 2 
’ 1547 1 ENDSETUP 
- IDENT 
ENABL AMA 
000000 -PSECT $xYZ$, RO 
000000 000034' BLSLAS::.WORD TSFREE 
000002 000000C «WORD <<TSFREE-<BLSLAS+4>>/2> 
000004 000024: P.AAA: .WORD LS$LAST+20 
000006 000004 -WORD 4 
000010 172150 P.AAB: .WORD -5630 
000012 000154 «WORD 154 
000014 000005 . WORD 
000016 000000 -WORD 0 
000020 000000 P.AAC: .WORD 0 
000022 000004 «WORD 4 
000024 172150 P.AAD: .WORD -5630 
000026 000154 -WORD 154 
000030 000005 -WORD 5 
000032 000001 -WORD 1 
000034 000000 TSFREE::.WORD 0 
000004 ' LSLAST== BLSLAS+4 
000002 TSPTHV== 
000004‘ $LAS3= P. AAA 
000010' $REM3= P.AAB 
000020' $$LASi= P. AAC 
000024 $REM2= P. AAD 
-SBTTL $SEND.LINK LASTAD AND SETUP 
000000 000207 SEND .LINK: : 
PC 
: Routine Size: 1 word, Routine Base: $XYZ$ + 0036 
; Maximum steck depth per invocation: 0 words 





VAX-11 Bliss-16 V4.0-579 
USER$1: (AZTEC. CZRCDB JCZRCD4.SRC;4 





SEQ 0350 
P 


CZRCD4 CZRCOBO RC25 DISK EXERCISER 14-Jun-1985 09:49:05 VAX-11 Bliss-16 V4.0-579 age 3 
vo2.0 LASTAD AND SETUP 14-Jun-1985 09:34:28 USER$1: (AZTEC. CZRCDB JCZRCD4.SRC;4 ¢€2) 

1548 1 

1549 1 END 

isso 1 

1551 0 ELUDOM 

PSECT SUMMARY 
Psect Name Words Attributes 
$xYZ$ 16 WO. & « Us, OE. CON 


COMMAND QUALIFIERS 
BLISS/POP11 CZRCD4.SRC/LIST/EN:NOEIS 


Size: 1 code + 15 date words 
Run Time: 00:22.1 

epsed Time: 00:22.7 

ines/CPU Min: 4207 
Lexemes/CPU-Min: 22155 








